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Nein! Von Wettbewerben wird 
hier nicht geredet. Beide Ad- 
venture-Suzukis sind wieder 
aufgetaucht und stehen vor der 
Redaktion, beziehungsweise in 
der Reparatur-Werkstatt. Alle 
Gröprowaz-Sieger sind befrie- 
digt. Bis auf drei. Es fehlen 
die genauen Adressen von U. 
Herbst aus Wesel (Platz 16), R. 
Hobbold, Bonn (Platz 22), und 
T. Starke (Platz 62), Berlin. Bitte 
melden, mit vollem Namen, bei 
mir 0 89-3 60 86-210. 

So. Und jetzt suchen wir Lese- 
rinnen und Leser, die keine 
Scheu davor haben, prominent 
zu werden. Dazu muß man 
dreierlei tun: RUN abonnieren 
— Foto von sich an die Redak- 
tion schicken — und Seite 34 le- 
sen. Gesucht werden ständig 
große und kleine, aber gute 
Programme sowie Tips und 
Tricks, die aus der Praxis be- 
gabter Computer-Fans stam-' 
men und an unsere Leser wei- 
tergegeben werden. In Zukunft | 
wollen wir diese „freien 
beiter“ — zumindest einige von " 


& uw um 
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ihnen — unseren Lesern vor-" 


stellen. Also: Lebenslauf und 5 
; 


Foto beilegen. Gesucht wird 


außerdem ein „unfreier" Mitar- " 


beiter mit Freude am Compu- 
tern und Spaß am Schreiben. 


Am liebsten wäre uns jemand, ") 


der auch noch Lust hat, nach ” 
München zu kommen. Bei der ' 
Wohnungssuche sind wir be- 


hilflich. Vielleicht schafft es der 


Win NE TER WEhe>, Sa 


EEE US CP Redaktiom 


rouclt ud gefunden 


„NEUE“ gerade noch zur dies- 
Jährigen RUN-Fete am Abend 
des 30. April. Wer mitfeiern 
will, findet uns in den dekorier- 
ten Katakomben des Verlags- 
gebäudes in der Rheinstr. 28. 
Nicht vergessen: Vorher an- 
melden, denn man kommt nur 
mit Karte rein. Jetzt noch was 
für Amiga-Fans. Die Familie 
Amiga 1000 und Amiga 2000 
wird mit dem 500er komplet- 
tiert. Man kann davon ausge- 
hen, daß diese Maschine für 
weniger als 1300 Mark bei Auf- 
steigern und Einsteigern gro- 
ßen Anklang finden wird. 
Wenn dem so ist, dann steigt 
auch der Bedarf an Informatio- 
nen über diese neue Compu- 
tergruppe, insbesondere über 
den Sprößling. Bisher sind wir 
den Interessen der Leser 
durch unseren Amigateil und 


die Sonderreihe „ICON“ ent- 
gegengekommen. Wer sich je- 
doch regelmäßig und umfang- 
reich über das Thema Amiga 
informieren wollte, der mußte 
schon in der Nähe eines der 
größeren Bahnhöfe oder an ei- 
nem der Flughäfen wohnen. 
Nur da erhält man die zweimo- 
natlich erscheinende amerika- 
nische „Amiga-World“. Da die- 
ses Magazin aber nur in einer 
sehr geringen Auflage in die 
Bundesrepublik geliefert wird, 
konnte man dort alle zwei Mo- 
nate einen erbitterten Kampf 
um die wenigen Exemplare be- 
obachten. Das wird nun an- 
ders. Im Mai geschieht etwas 
neues. Die RUN-Redaktion 
bringt erstmals die „Amiga- 
Welt“ als RUN-Sonderheft Nr. 
2/87 heraus. Damit wollen wir 
alle diejenigen Fans anspre- 
chen, die sich ernsthaft und in- 
tensiv mit dem Thema Amiga 
auseinandersetzen wollen und 
dazu grundlegende Kenntnisse 
brauchen. Es ist aber auch für 
all diejenigen ein Kompen- 
dium, die sich über aktuelle 
Tests kundig machen wollen, 
und für diejenigen, die gerne 
interessante Listings abtippen. 
Durch unsere hervorragen- 
den, weltweiten Kontakte ist es 
gelungen, echte Exklusivbei- 
träge zu bringen. Alles in allem 
eine runde Sache, von der Ami- 
ga-Interessierte sagen können: 
Gesucht und gefunden. 
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Showtime Gesucht wurde nicht das Fach- 
9 ublikum, gesucht wurde der 

CeBIT ’87 rer Mazkt die Masse. Das 
wiederum wird von den Massen- 

medien konterkariert: Man mißt 

dem neuen „Welt-Centrum der 

Büro-, Informations- und Tele- 

kommunikationstechnik“ (CeBIT) 

nicht den Stellenwert bei, den 

die alte Messe hatte. Das wie- 

derum hinderte Commodore- 

Chef Winfried Hoffmann nicht 

daran, unserem Wettbewerbssie- 

ger ein Amiga-Set zu überreichen. 

Seite 6 


Monitore mit Durchblick braucht der Käufer ' 
eines Monitors. Er muß die wich- 
Dur ehblick tigsten technischen Begriffe zu 


den Geräten kennen und über ° 
das aktuelle Angebot informiert | 
sein. Dann kann schnell die eine 
oder andere Mark eingespart 
werden. Erklärungen zur Fach- 
terminologie und die große ' 
Marktübersicht auf den Seiten 40 | 
und 4] helfen, die letzten Wis- 
senslücken zu füllen. 
Seite 20 


Einen Computer der unbegrenz- 


ten Möglichkeiten bietet Com- 

modore mit dem Amiga 2000 an. Commodores 
Durch ein ausgeklügeltes Steck- neues 
Dlatz-Systern kann er zum IBM- Flaggschiff 


kompatiblen PC oder AT erwei- 
tert, in ein Netzwerk eingebun- 
den oder zum Unix-Rechner um- 
gewandelt werden. 1 MByte Ar- 
beitsspeicher, auf 9 MByte er- 
weiterbar, DIN-Tastatur, PC- 
kompatible Peripherieanschlüs- 
se und eine optionale Festplatte 
sind nur einige der Neuerungen. 
Seite 42 


Software- 
Diamanten 


Mit den Actionspielen „Space 
Battle“, „Demolition“ und „Pha- 
lanx“ stellt das Programmier- 
team Diamond-Software sein 
Können unter Beweis. Spitzen- 
grafik, digitalisierte Sounds und 
Spielspaß zu Low-cost-Preisen 
heißt da die Devise. RUN-Mitar- 
beiter Roger Schmitt unterhielt 
sich auf der CeBIT mit dem jun- 
gen, innovativen Softwareteam 
über die neuesten Projekte. 
Seite 80 
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Mit 396 000 Besuchern 
aus aller Welt in acht 
Messetagen liegt das 
Endergebnis der CeBIT 
'87 fast 20 Prozent über 
dem Vorjahr. Die Qualı- 
tät der Besucher, sagt 
die Messeleitung, war 
hoch. Hoch ist zumindest 
die Qualität der Gröpro- 
waz-Sieger. 


„Mit dem Erfolg der CeBIT haben 
wir Skepsis und Kritik gegenüber 
der Zellteillung überwunden." 
Was anderes sollte die Messe- 
Vorsitzende und niedersächsi- 
sche Finanzministerin Birgit 
Breuel denn sagen? Etwa „Rat- 
losigkeit angesichts mangelnder 
Höhepunkte", wie die „Computer- 
world Schweiz" meckerte? Höhe- 
punkt für RUN war jedenfalls die 
Übergabe der ersten drei Wett- 
bewerbspreise. 

Der erste Preis im Ideen-Wettbe- 
werb Gröprowaz II 86/87 ging 
nach Essen zu Christian Drapatz. 
Für seinen „RUN-man Construc- 
tion-Set" bekam er den Amiga-Set. 
Zweiter Preis an Markus Meurer 
für sein Datenverwaltungspro- 
gramm und dritter Preis an Jan 
Kusch aus Salzgitter. Sein „Busi- 
ness Basic" ist für den wirtschatftli- 
chen Einsatz geeignet. Im übrigen 
war das Wetter Gesprächsthema 
Nummer I. Unter Ausstellern und 
Journalisten war der Kalauer „Ce- 
BIT-SchneeBIT" populär. Damit 
spielte die Natur für das Hanno- 
ver-High-tech-Spektakel den Ab- 
lenker in der Not: Man mußte sich 
nicht über die Qualität der Besu- 
cher oder über eine gewisse Rat- 
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Markus Meurer gewinnt eine Atari-Anlage. 


1. Sieger Christian 
Drapatz erhält von 
RUN-Assistentin 


Siggi und Commo- 
dore-Chef Win- 
fried Hoffmann ei- 
nen Amiga-Set. 


losigkeit angesichts mangelnder 
Höhepunkte diskutieren. Man 
konnte getrost über das Wetter 
reden. Wer Beachtung finden 
wollte oder sich dazu verpflichtet 
fühlte, lud zur Pressekonferenz — 
auch wenn es nichts anderes mit- 
zuteillen gab als Umsatzzahlen. 
Dazu der Schweizer Journalist 
Martin Meier: „Die mit Terminen 
verstopfte Agenda garantierte 
den gestreßten Journalisten keine 
Neuheiten.“ 

Verschiedene Software-Welten 
sollen längerfristig integriert wer- 
den. Dazu gab es einige Signale: 


Eine Spende von 
Brother für Jan 


Kusch für sein 
Business Basic“. 
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Nikotin und & mg Kondensat (Teer), 
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Geäußert haben sich jene Herstel- 
ler, die sich auf die 68000er Pro- 
zessor-Familie von Motorola fest- 
gelegt hat. Nachdem Apple und 
Atari bereits vor der CeBIT ihre 
Öffnungsabsichten gegenüber 
den Betriebssystemen MS-DOS 
bekanntgegeben hatten, zeigte 
Commodore — neben der Welt- 
premiere eines Billig-PCs auf der 
Basis des Intel 8088-Prozessors — 
einen offenen Amiga 2000. Mit ent- 
sprechenden Bus-Verbindungen 
lassen sich in diesem Gerät vor- 
erst MS-DOS und später auch die 
Macintosh-Welt mit der Amiga 
Software zusammenführen. 

Die Meinungen zur CeBIT bleiben 
geteilt. Die Großen der Branche 
wollen weg von der Fachmesse 
und statt jenen, die den Einsatz 
elektronischer Datenverarbeitung 
planen und verantworten, Leute 
ansprechen die von ihren Segnun- 
gen betroffen sind. Fachpublikum 
— mit dem man über das Jahr oh- 
nehin Kontakt hat — nimmt man 
billigend in Kauf, gesucht wird 
der breite Markt. Konterkariert 
wird dies freilich durch das Ver- 
halten der Medien: Die Informa- 
tionsvermittler, namentlich die 
Nachrichtenagenturen, messen 
der CeBIT nicht den Stellenwert 
bei, den die alte Messe hatte. 
Computer und Software sind nun 
einmal weniger darstellbar als tra- 
ditionelle Industrieexponate. Ver- 
kaufen, so meinen die Veranstal- 
ter der neuen CeBIT, sei nun mal 
eine emotionale Angelegenheit — 
insbesondere, weil es sich um die 
Erschließung neuer Absatzpo- 
tentiale handelt. Da drängt sich 
das Bild der traditionsreichen 
Autosalons auf. Es bleibt also zu 
hoffen, daß die CeBIT nicht zu ei- 
ner Glamour-Show verkommt, de- 
ren wesentlicher Inhalt die Selbst- 
darstellung jener ausmacht, die 
sich die Präsenz auf dieser Show 
leisten können. 


Zeichensatz per 
Scheckkarte 


Besonders schnell lassen sich Zei- 
chensätze bei den neuen Fujitsu- 
24-Nadel-Druckern DL3300 
(DINA4) und DL3400 (DIN A3) än- 
dern, nämlich per „Scheckkarte". 
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Jede Karte faßt zwei der folgen- 
den Zeichensätze: Gothic 12, 
Scientific 12, Orator, Boldface PS 
und Light Italic. Umstellungen 
werden über ein Bedienungs-Pa- 
nel eingegeben. Mit bis zu 288 
Zeichen pro Sekunde Druckge- 
schwindigkeit sind die beiden 
Drucker auch für Massenschrift- 
verkehr geeignet. Die Auflösung 
im Briefqualität-Modus beträgt 360 
x 180 Punkte pro Zoll. Per Tasten- 
druck wird der Papierbetrieb von 


Unter 1000 Mark kostet der 180 
Zeichen pro Sekunde schnelle 


Epson LX-800' 


Endlos auf Einzelblatt umgestellt. 
Das Endlospapier muß bei diesem 
Vorgang nicht entfernt werden. 
Ohne großen Aufwand lassen sich 
der DL3300 und DL3400 auf Farb- 
betrieb umrüsten. Die Farboption 
ist separat erhältlich. Die Grund- 
versionen kosten zwischen 2550 
und 2650 Mark. 

324 Zeichen pro Sekunde sollen 
die Fujitsu-Drucker DX2300 
(DINA4) und DX2400 (DIN A3) zu 
Papier bringen. Die flotten 9-Na- 


Mit einer großen 
Auswahl an Zei- 


chensätzen und 
Schriftarten auf 
IC-Karten, sind 
die Fujitsu 24-Na- 
del-Drucker 
DL3300/DL3400 
für den Profiein- 


satz geeignet 


Mit zusätzlichem 


Einzelblatteinzug 
lassen sich beim 


DX2300/2400 Ein- 
zelblätter ohne 
Entfernen des 


Endlospapiers 
zuführen 


del-Geräte kosten zwischen 2090 
und 2590 Mark. Als Option gibt es 
für diese Drucker Farbzusätze. 


Mit einer Druckgeschwindigkeit 
von 180 Zeichen pro Sekunde wird 
der preiswerte LX-800 von Epson 
angepriesen. Er ist aufwärtskom- 
patibel zum LX-86 und kostet deut- 
lich unter 1000 Mark. Mit zwei 
Schönschrift-Zeichensätzen eignet 
sich der LX-800 auch für semipro- 
fessionelle Anwendungen. 


Neuigkeiten gab es auch auf dem 
Star Micronics-Stand. In der unte- 
ren Preisklasse stellte der mit 


Commodores neuester MS-DOS- 
Computer: Der PC-] 
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In der gehobe- 
nen Mittelklasse 
sind die Star- 
Drucker ND-10 


und ND-15 ange- 
siedelt 


240 Zeichen pro 
Sekunde schnell 
sind die 9-Nadel- 
Drucker NR-10 
und NR-15 


24 Nadeln sorgen 
für ein Schriftbild 


in Letter-Quality 


dem NL-10 bekannt gewordene 
Druckerhersteller die Geräte ND- 
10 (DIN A4) und ND-15 (DIN A3) 
vor. Sie werden zwischen 1295 
und 1695 Mark kosten. Die beiden 
9-Nadel-Drucker erreichen in 
EDV-Qualität eine Druckge- 
schwindigkeit von 180 Zeichen 
pro Sekunde. Für mittlere Ansprü- 
che stellte Star die 240 Zeichen 
pro Sekunde schnellen NR-10 
(DIN A4) und NR-15 (DIN A3) 9-Na- 
del-Drucker vor. Die standardge- 
mäß mit Centronics-Schnittstellen 
ausgestatteten Geräte kosten zwi- 
schen 1595 und 1995 Mark. 


24-Nadel-Drucker werden immer 
preiswerter. Sie kosten mittlerwei- 
le soviel, wie vor vier Jahren ein 
9-Nadel-Epson FX80. Für 1995 be- 
ziehungsweise 2595 Mark gibt es 
die neuen NB 24-10 und NB 24-15 
Drucker von Star. Die Geräte ver- 
fügen über zwei Druckmodi. Im ei- 
nen Modus arbeiten sie mit 216 
Zeichen pro Sekunde als EDV- 
Drucker, im anderen erzeugen sie 
Letter-Quality mit einer Geschwin- 
digkeit von 72 Zeichen pro Sekun- 
de. 


Laser-Drucker werden immer be- 
liebter. Ob Brother, Epson oder 
Okidata, fast jeder Hersteller 
konnte zur CeBIT mit einem Laser- 
Drucker aufwarten. Das preiswer- 
teste Gerät stellte Atari vor. Für 
3000 Mark soll der ausschließlich 
am ST zu betreibende Laser-Druk- 
ker zu haben sein. 


Unter 5700 Mark wird der GQ- 
3500 Laser-Drucker von Epson ko- 
sten. Das mit 1,5 MByte RAM aus- 
gestattete Gerät ermöglicht Ganz- 
seitendruck in hoher Auflösung. 


Am Industrie-Standard MS-DOS 
kommt heutzutage kein Computer- 
Hersteller mehr vorbei. Selbst 
Apple, einst Gegner von MS-DOS, 
liefert einige Macintosh-Versio- 
nen zukünftig mit zusätzlicher 
Hardware für MS-DOS-Anwen- 
dungen aus, sozusagen als Beiga- 
be für diejenigen, die auf das 
reichhaltige MS-DOS-Softwarean- 
gebot nicht verzichten können 
oder wollen. 


Zur CeBIT stellten Commodore 
und Atari Billig-PCs vor. Beide Fir- 
men nehmen die Herausforde- 
rung von Schneider an. Commo- 
dores PC-1 soll in der Grundver- 
sion 1295 Mark kosten. Atari 
möchte für ihr Gegenstück 1798 
Mark verlangen. Im PC-l ist ein 
Floppy-Controller, eine eingebau- 
te Floppy, Farbgrafik sowie paral- 
lele und serielle Schnittstelle ein- 
gebaut. Als CPU wurde der 8088 
mit 4,77 MHz ausgewählt. Die ein- 
gebauten 512 KByte RAM können 
auf 640 KByte aufgestockt werden. 
Mit anderen Erweiterungen wie 
Festplatten-Controller sieht es al- 
lerdings schlecht aus: Für Zusatz- 
karten stehen keine Steckplätze 
zur Verfügung. 
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Mit 4,77/8 MHz 8088 CPU, 512 
KByte RAM, 5%-Zoll-Laufwerk und 
verschiedenen Grafik-Modi ist 
der Atari-PC ausgerüstet. Auf den 
beliebten Atari Schwarzweißmoni- 
tor muß der PC-Käufer allerdings 
verzichten. Statt dessen soll es für 
den PC einen Grünmonitor mit 
ähnlich guter Qualität geben. Wie 
beim PC-] fehlen auch beim Atari- 
PC die Erweiterungsslots. 


Mega-Atari 


Die Tramiel-Family rüstet ihren 
2080 ST für Desktop-Publishing 
auf. Er wird standardmäßig mit 
2 oder 4 MByte Arbeitsspeicher 
ausgerüstet sein. Die massiv er- 
höhte Arbeitsspeicherkapazität 
und der eingebaute Blitter-Chip 
bewirken im neuen Modell einen 
schnelleren Bildschirmaufbau 
und beschleunigen das Drucken. 
Zusätzlich verfügt der 2080 ST 
über eine batteriebetriebene 
Echtzeituhr und einen Bus für Zu- 
satzkarten. Wie der Atari 1040 ST 
arbeitet der 2080ST mit dem 
68000-Mikroprozessor von Moto- 
rola im 8-MHz-Takt. Die Datenaus- 
gabe erfolgt durch den DMA-Aus- 
gang (Direct-Memory-Access). 
Der Bus mit einer Transferrate von 


10 Millionen Bits pro Sekunde eig- 
net sich für den Betrieb von Zu- 
satzgeräten von CD-ROM, Kopro- 
zessoren, Plattenspeichern oder 
Systemvernetzungen. Die Soft- 
ware der Atari-Reihe 520ST/ 
1040ST läuft auch auf dem 
2080 ST, denn auf allen Modellen 
wird das gleiche TOS- und GEM- 
Betriebssystem eingesetzt. Ein Pa- 
ketangebot für Desktop-Publish- 
ing ist vorgesehen. Es besteht aus 
folgenden Komponenten: Atari 
2080 ST mit 2 MByte RAM, Blitter- 
Chip, hochauflösender Mono- 
chrom-Bildschirm, integriertes 
Floppylaufwerk, Maus, Atari-La- 
serdrucker, Software für Desktop- 
Publishing und das Betriebs- 
system DOS/GEM. Der 2080 ST 
soll noch in diesem Monat verfüg- 
bar sein. 


Amiga sehneller 


als Miero-VAX 


Frischen Drive bringt die Turbo- 
Amiga-Box der californischen 
Hardware-Tüftler von Computer 
Systems Associates (CSA). Diese 
Erweiterungsbox wird am System- 
bus des Amiga 1000 angeschlos- 
sen. Eine Steckkarte im Inneren 
beinhaltet den Motorola 68020 Mi- 


kroprozessor, der unterstützt vom 
M 68881 Floating Point Prozessor 
den Amiga in eine echte 32-Bit- 
Maschine verwandelt. Die mit 14 
MHz getaktete Super-CPU macht 
den Amiga dann etwa fünf mal so 
schnell und leistungsfähig wie 
eine VAX 11/780 oder 40 mal wie 
ein PC AT. Die im Vertrieb von 
ITC Krefeld erhältliche Erweite- 
rung beläuft sich einschließlich 
512 KByte statischen RAM, SCSI- 
Controller und 20 MB Harddisk 
auf 14300 Mark. Neuheiten hat 
auch die Firma Merkens zu bie- 
ten. Mit ihrem Genlock A8600-In- 
terface kommt erstmalig ein 
Videointerface für Amiga-Geräte 
mit PAL-Norm auf den Markt. 
Dementsprechend stark war das 
Gedränge um das Vorführgerät. 
Genlock erlaubt dem Benutzer ein 
Videobild, das von einem exter- 
nen Videogerät oder Bildplatten- 
spieler kommt mit Text oder farbi- 
gen Grafiken zu mischen. Eine 
„Chroma-Funktion" ermöglicht es, 
daß Vordergrundfarben transpa- 
rent erscheinen und dadurch Tei- 
le des Videobildes zu sehen sind. 
Genlock-Interface, drei Verbin- 
dungskabel, Software und Anlei- 
tung werden zum Preis von 1300 
Mark angeboten. 


Bodylog 
statt Herzinfarkt 


In Las Vegas gese- 
hen, in Hannover 
ausprobiert: Mit ge- 
sundheitsfördernden 
Programmpaketen 
hilft der C64 beim Fit- 
neßtraining und der 
Überwachung von 


Herz und Kreislauf. 

Streß und schädliche Umweltein- 
flüsse sind wesentliche Auslöse- 
faktoren für Herzinfakt und Kreis- 
laufschwäche. Tagsüber arbeiten, 
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am Abend rauchen, saufen, glot- 
zen und am Wochenende Hobby- 
Time. Für Überwachung der Ge- 
sundheit bleibt da wenig Zeit. So 
mancher hat ein Trimm-Dich-Rad 
im Keller oder erfreut sich am Jog- 
ging im Park. Wie es jedoch um 
Herz und Kreislauf steht, wissen 
die wenigsten. 

Hier hilft das Bodylog-Fitneßpro- 
gramm. Wer denkt, daß zum Fit- 
neßtraining stets großartige Gerä- 
te mit bleiernen Gewichten von 
Nöten sind, irrt. Die Bodylog-Sets 
bestehen aus einfachen Sensoren 
die am Joystickport des C64 ange- 
schlossen werden. Die mitgelie- 


ferte Software überwacht den 
Trainingsvorgang und zeigt am 
Monitor die aktuellen Werte. 
Bislang gibt es drei verschiedene 
Bodylog-Sets die beliebig kombi- 
niert werden können: Streß-Kon- 
trolle, Hometrainer-Übung und 
Muskelaufbau. 

Das erste Paket enthält neben An- 
leitungsheften und Modul-Soft- 
ware einen Temperatur- und ei- 
nen Pulssensor. Die Handhabung 
ist einfach: Zu Beginn des Trai- 
nings fragt der Computer indivi- 
duelle Daten wie Alter, Gewicht, 
Geschlecht etc. ab. Dann mißt ein 
Pulssensor am Zeigefinger den 


BI 


Puls. An der Handfläche wird ein 
Temperatursensor befestigt. Die 
Auswertung des Streßzustands ist 
einfach: Streß-Situationen führen 
zum Abkühlen der Haut. Die 
Hauttemperatur ist damit ein Indi- 
kator für das gegenwärtige Wohl- 
befinden. Stellt die Bodylog-Soft- 
ware einen Streßzustand fest, so 
fordert das Programm zum Rela- 
xen auf — also in den Sessel zu- 
rücklehnen und entspannen. Am 
Bildschirm läßt sich der Entspan- 
nungsvorgang verfolgen. 

Ziel des Sets ist es, zu vermitteln, 
wie man Streß durch gezielte Ent- 
spannung und Atemtechnik be- 
kämpft. Ä 
„Hometrainer-Übung“ ist das 
ideale Set für Trimm-Dich-Rad Be- 
sitzer. Zunächst wird das Rad vor 
der Computeranlage aufgestellt. 
Dann wird ein kleiner Button am 
Lenkrad befestigt und am Ohr- 
läppchen ein kleiner Clip zur Puls- 
überwachung angebracht. Beim 
Programmstart wird durch indivi- 
duelle Angaben und Pulsmessung 
ein Trainingsplan errechnet, der 
Belastungskurve und den idealen 
Herzrythmus festlegt. Auf dem 
Monitor sieht man einen Radfah- 
rer über Berg und Tal fahren 
außerdem Ängaben über den ak- 
tuellen Pulsschlag. Uber den But- 
ton am Lenkrad kann der Radfah- 
rer auf dem Monitor gelenkt wer- 
den. Er muß ständig großen Lkws 
und rasenden Sportwagen aus- 
weichen, um nicht unter die Räder 
zu kommen. 


das Funktionsprinzip 


Hier zeigt sich, wie bei den Body- 
log-Systemen Training und Spiel 
vereinig 

Das Ver- 
spricht s be- 
steht au n klei- 
nen Plastik-Expander den ein 
dybui ı Aufwand 
kapu ann 


wird an den Joy- 
losen und 
f dem Monitor 
en, an dessen 

ein ee steht. "Ein klei- 
ander und das 
= Jetzt heißt es 
ch möglichst kon- 
kung auf den Ex- 
der Hubschrauber 
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gesteuert. Fliegt man zu hoch, so 
besteht die Gefahr, mit entgegen- 
kommenden Raketen zu kollidie- 
ren, Tiefflug führt zum Crash im 
Gebirge. Die Kraftmotivation wird 
durchs Spiel enorm gesteigert. 
„Muskelstraffung und „einem 
knackigen Po für die neue Bade- 
mode" verspricht der Prospekt. 
Zweifellos lassen sich mit dem 
Mini-Expander Muskelpartien 
trainieren, zum Fitneßstudio wird 
das Wohnzimmer dennoch da- 
durch nicht. Für Möchtegern- 
Schwarzeneggers mag der Ex- 
pander ein Riesenspaß sein! 
Redakteur Mike unterzog sich am 
Commodore-Stand auf der CeBit 
dem Fitneßtest. Versuche, das 
System zu linken, schlugen gänz- 
lich fehl: Messestreß und durch- 
gezechte Nacht führten zu eindeu- 
tigen Resultaten und nicht zuletzt 
zum Vergnügen der Standbesu- 


Was auf ersten Blick wie Spiel- 
zug aussah, entpuppte sich als 
ernstzunehmendes Biofeedback- 
Sy — Die Bodylog-Sets wurden 
unter Mitwirkung von Medizinern 
zusammengestellt und gewissen- 
haft getestet. Die Sets können 
durchaus mit teuren Spezialgerä- 
ten, wie sie in Krankenhäusern 
Anwendung finden, konkurrieren. 
Nicht zuletzt durch das hervorra- 
gende Preis/Leistungs-Verhältnis: 
„Stress-Kontrolle" kostet 199 
Mark, „Hometrainer-Übung“ 169 
Mark und das Expanderset ist für 
129 Mark zu haben. 


Drei verschiedene Sets sind erhältlich: „Streß-Kontrolle“ 


Hometrainer-Übun 


“und „Muskelaufbau“. 
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HICH TECH 


im Tunnel 


Eine Wahnsinns-Show zog IBM in Wien ab. 
„bxhibit" nannte sich das High-Tech-Spektakel im 
gläsernen Tunnel vor dem Rathaus. Ein 
Publikumsmagnet — superbe PR! 


„Seit jeher“, so Antonio De Falco, 
„seit Entstehung des Universums, 
sendet die Natur Botschaften aus, 
die während vieler Millionen Jah- 
re ohne Widerhall blieben“. Äo- 
nen später trafen die Messages 
dann endlich auf Menschen. Und 
es dauerte auch dann noch eine 
ganze Weile, bis man/frau in der 
Lage war, aus dem Info-Input auch 
Folgerungen zu ziehen, was die 
Verknüpfung von Fakten und de- 
ren logische Ordnung (ein aktiver 
Vorgang!) voraussetzt. Vor Trug- 
schlüssen waren unsere Vorväter 
dennoch nicht gefeit: Die Sonne 
geht unter, also... Erst Galilei re- 
lativierte die Rolle des Planeten 
Erde im Kosmos — und revolutio- 
nierte damit letztlich das Denken 
radikaler als alle vor und nach 
ihm! Aus seiner Zeit und seinem 
Wirken resultiert die totale Re- 
spektlosigkeit in Wissenschaft 
und Technik gegenüber Denkvor- 
schriften und Dogmen — egal, ob 
nun „politisch“ oder „theologisch" 
veranlaßt. Gutenberg, schon vor- 
her da, lieferte die revolutionären 
reprotechnischen Voraussetzun- 
gen für die Verbreitung dieses 
Gedankenguts. Vater der Re- 
spektlosigkeit der eine, Verursa- 
cher der ersten Info-Explosion der 
andere — auf diese Formel wohl 
ließe sich das reduzieren, was An- 
tonio De Falco in origineller Ge- 
dankenführung vermittelt. 

Es ist gewissermaßen der Leitarti- 
kel im Begleitblatt einer IBM-Aus- 
stellung, die seit einer Weile auf 
Tour ist und Furore macht wie kei- 
ne zuvor. EXHIBIT lautet der Titel, 
und auf den zweiten Blick ent- 
deckt man sogleich den Sprach- 
witz im Etikett: Kurz und griffig 
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muß es ja meistens sein, also wird 
Exhibition um eine Silbe gekappt 
(„trunkiert“ im Database-Deutsch). 
Doppeldeutig sollte es sein: Über 


(IBM!) sowie im zitierten Begleit- 
blatt wird über weite Strecken nur 
noch brilliert. 

Thematisch — und identisch mit 
dem auf Digitales zielenden Dis- 
play — wird so ziemlich alles ab- 
gedeckt, was „rund um den Com- 
puter“ interessant und relevant ist. 
Zum Beispiel: Warum gibt's — im 
Gegensatz etwa zu Flugzeugen — 
diesen wahnsinnigen Wettlauf 
nach dem Motto: „Immer klei- 
ner"? Antwort: „In der Mikroelek- 
tronik ist weniger mehr, eine Tat- 
sache, die die verbesserte Zuver- 
lässigkeit und die reduzierten Ko- 
sten des Computers weitgehend 
erklärt" (Lewis M. Branscomb), 
Was konkret daran liegt, daß (1) 


In IBM-Großcomputern sind Schaltkreise auf Leiterplatten wie dieser 


angeordnet. Eine davon ist 60 x 70 cm groß und wiegt annähernd 30 kg. 


Mit freundlicher Genehmigung der IBM 


„Bit“ stolpert man dann fast schon 
automatisch! (Hübsch, originell — 
und vergleichbar mit dem werbli- 
chen Supergag „SchrelBMaschi- 
ne“!) 

Exhibit-General-Thema: Die tolle 
Technik. Zielgruppe: Die Jugend 
(der Markt von morgen ...). Ziel- 
setzung: „Einblick zu geben in 
eine so faszinierende wie komple- 
xe Welt, die Welt der Informa- 
tionstechnik" (O-Ton). Sprachliche 
Sprödigkeiten der Art sind nun 
keineswegs typisch für das Be- 
gleitmaterial: Da, im Klasse-Kata- 
log, ebenso wie im Heft „Informa- 
tionen — Berichte — Modelle" 


engmaschigere Muster-Dichten 
flächenmäßig Fixkosten bei der 
Herstellung ersparen, daß (2) das 
Verarbeitungstempo durch „Inti- 
mität" steigt, daß (3) schließlich 
der Inter-Chip-Aufwand sinkt. So 
kurz und griffig fand man's bisher 
kaum! 

Zweites Beispiel: Gehirn gegen 
Computer, eine hopeless Compe- 
tition, meint da mancher — und 
irrt! Mag ja manchmal so sein, ein 
historisch (und generell!) falscher 
Vergleich bleibt's gleichwohl; Als 
Lucy lebte, ein südafrikanischer 
Australopithecus (Vormensch), 
zeitlich weit apart from Apartheid, 


hätte ihr Hirn im Ausmaß ganze 
400 cm (hoch drei) ergeben, da 
liegen wir ganz dick drüber (Lu- 
cy's Nachfolger mal nicht einge- 
rechnet). Darüber auch, was die 
Speicherkapazitäten betrifft, und 
zwar konkurrenzlos. Längst über- 
trifft uns freilich Freund Computer 
im Tempo seiner simplen Ja/Nein- 
Operationen, was uns einerseits 
eine Menge Arbeit abnimmt, an- 
sonsten aber nicht schädigt: Klug 
oder gar weise, wie tröstlich, wird 
der nie werden! (Während das 
bei uns zumindest nicht ausge- 
schlossen ist.) Das sozusagen ist 
der berühmte „kleine Unter- 
schied", der freilich in vielen Köp- 
fen für soviel Verwirrung sorgt! 
(Wer's noch präziser haben will, 
lese nach im Kapitel über „Die 
Grenzen künstlicher Intelligenz*.) 


George Orwells „1984“ 


Man reibt sich schon reichlich ver- 
wundert die Augen, wenn man — 
Beispiel drei — in einer IBM-Publi- 
kation etwas zum Thema „Negati- 
ve Utopie“ liest. Dem Leben und 
Werk George Orwells ist dieser 
Beitrag gewidmet. „Es handelt 
sich bei ihm nicht um Science fic- 
tion, sondern er entwickelt auf 
vernünftige, ahnungsvolle Weise, 
was für uns schon gegenwärtig ist“ 
— so die vorläufige, summarische 
Bilanz. Zu seinen „originellsten 
Einfällen“ (in „1984") zähle die 
„Neusprache“, ein synthetisches, 
semantisch-verkürztes Idiom mit 
dem Zweck, „die Formulierung 
komplexer, unorthodoxer Ideen 
unmöglich zu machen“. Davon nun 
könne — „in keinem Winkel der 
Welt“ — die Rede sein. Den klu- 
gen Köpfen bei Big Blue sei gera- 
ten, etwa mal bei Theodore Ros- 
zak („Der Verlust des Denkens" — 
siehe Bücher, S. 18), bei Vance 
Packard („The hidden Persuad- 
ers‘) oder im Werk von Karl 
Krauss nachzulesen. Mehr oder 
minder gemeinsamer Tenor: Die 
Sprache verarmt (und mit ihr das 
Denken), wird semantisch umge- 
polt oder degeneriert gar zum 
gräßlichen Werbe-Jargon. Der un- 
ausgesprochene Umkehrschluß 
wird dennoch deutlich: Die positi- 
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ve Utopie — darauf läuft alles hin- 
aus! Was nun wahr- und reichlich 
naiv ist, wie wir, vom technischen 
„Fortschritt" oft genug bedroht, 
nicht erst seit Hiroshima oder Ba- 
sel wissen. 


„Tu felix Austria“ 


a 


„Die schöne neue Welt" — ganz 
ohne Aldous Huxley’'s tieftraurige 
Ironie — die Welt, die durch den 
Computer immer „besser“ und 
komfortabler wird, ist denn auch 
das durchgehende semantische 
Motto der EXHIBIT. Ein Hauptthe- 
ma dabei: Computer in „Wissen- 
schaft und Forschung“ (Atome 
werden sichtbar, Parallel ist su- 
per, Dem Computer diktieren, 
Mehr Chancen für Blinde, Frakta- 
le Geometrie u. a.). Der zweite 
Schwerpunkt („Technologie“) prä- 
sentiert konzentriertes Know-how 
vornehmlich zum schon altbe- 
kannten Megabit-Chip sowie zum 
„Ihermal Conduction Module“, 
eine ganz coole Ableitungs-Lö- 
sung der auch bei Chips entste- 
henden, unerwünschten Wärme 
(drei Watt pro Quadratzentime- 
ter!). Thema Nummer drei: „Com- 
puteranwendungen® (Wissen im 
Netzwerk, Arbeitsmarkt-Service 
mit Computerunterstützung). 

Nicht fehlen dürfen natürlich 
News nach dem Motto „Know-how 
aus Österreich*. Denn dort, in der 
Landeshauptstadt Wien, war EX- 


HIBIT in der Zeit vom 5. bis 31. 
März „zu Gast" (und wandert dann 
weiter nach Brüssel). Präsentiert 
in einem futuristischen „Pavillon“ 
(eine Art gläserner Tunnel) und di- 
rekt vor dem Rathaus — eine 
Show, die so recht zum Rathaus- 
Chef paßte. Der heißt Helmut Zilk, 
ist ein begnadeter Show-Master 
und hat seine einzige gefährliche 
Konkurrentin, Musicalstar Dag- 
mar Koller, einfach dadurch aus- 
geschaltet, daß er sie zur Frau 
nahm. Tu felix Austria! 

Eher verflixte Gefühle hat derweil 
wohl die IBM-Konkurrenz. Denn 
der Casus knaxus der EXHIBIT ist 
auch klar: Was auf dem Markt im- 
mer schwieriger wird — die Mo- 
nopolisierung nämlich — kommt 
hier auf der optisch-psychologi- 
schen Schiene, auf Umwegen 
also, wieder! Computer = IBM = 
Fortschritt lautet die Botschaft — 
und die ist ebenso diskriminie- 
rend wie eindeutig falsch! Ande- 
rerseits: Es ist fachlich-didaktisch 
schon einsame Klasse, was der 
Marktführer da bietet. Über den 
phantastischen PR-Effekt dieser 
Wander-Veranstaltung zu philoso- 
phieren, lohnt nicht: Der eine freut 
sich halt ob seines Erfolgs, die an- 
deren krümmen sich vor Wut — 
der Lauf der Welt! 

(Reiner Uhl) SA ee 


Materialien (Katalog u. a.) können angefor- 
dert werden bei: 

IBM Österreich 

Obere Donaustraße 95 

A-1020 Wien 


CTJ Computer-Technik Karl Junges 
Spiekern 11 : D-5600 Wuppertal-23 
Telefon: (0202) 61 20 11+61 21 11 


B.M.S.-System 


320 kByte RAM für C64 
BMS. (Bank Memory Select) ist ein RAM-Erweierung (320 kByte), die es ermöglicht, fünf 
verschiedene Programme in den Rechner zu laden und zu starten. Die Auswahl der 
Programme erfolgt per Tastatur. (Das ganze System ist Software gesteuert.) 
IN Ausführlicher Testbericht in der RUN Ausgabe 12/86. Ill 


BM S.-System inkl, Rapid-DOS inkl. Einbau 
BM S.-System inkl. Rapid-DOS ohne Einbau 
BM S.-System ohne Rapid-DOS inkl. Einbau 
B.M.S.-System ohne Rapid-DOS ohne Einbau 


Erweiterung auf 512 kByte inkl. Einbau 
Erweiterung auf 512 kByte ohne Einbau 
RAPID-DOS für C64/128 


Versand nur gegen Vorauskasse oder Nachnahme. 
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Scehule kreativ 


Unter dem Titel „Kreativ mit klei- 
nen Computern“, ist das Hand- 
buch für alle diejenigen erschie- 
nen, die mit dem Computer mehr 
machen wollen als Basic lernen. 
Tausend Tips und Einsatz-Beispie- 
le für den Unterricht belegen die 
Absicht ihres Herausgebers Paul 
Tresselt, nicht nur Vokabelpro- 
gramme getestet zu haben, son- 
dern viele Einsatzmöglichkeiten 
des Computers in der Schule ge- 
schrieben zu haben: Das Bedruk- 
ken von T-Shirts, Herstellen von 
Schildern und Drucken der Schü- 
lerzeitung, Einrichten einer Mail- 
box oder die Arbeit mit Datenban- 
ken. So wird die Arbeit des Leh- 
rers, der ansonsten nichts mit 
Computern zu tun hat, zur Kleinig- 
keit. Hier erhält er das notwendi- 
ge Know-how und den Überblick 
um einen interessanten und ab- 
wechslungsreichen Unterricht mit 
dem Computer zu gestalten. Zu- 
sätzlich enthält das Buch, das 
im Verlag „Die Schulpraxis“ 
(Tel.: 0208/381667) erschienen ist, 
strukturiert Themen mit Lernzie- 
len, konkreten Unterrichtshilfen 
und ausgesuchten Programmbei- 
spielen von mehr als 2000 geteste- 
ten Programmen. 


Generalmajor an 
der Mailbox 


Aktuelle Informationen für Möch- 
tegern-Soldaten bietet die Bun- 
deswehr-Mailbox. Unter der Tele- 
fonnummer 02 28/62 85 16 bietet 
das Streitkräfteamt in Bonn Aktu- 
elles, vom Tag der offenen Tür bis 
zu Hinweisen über Ausstellungen 
und Konzerte der Big-Band der 
Bundeswehr. Wöchentlich wer- 
den die Angebote aktualisiert, die 
auch offene Stellen, Laufbahn- 
möglichkeiten, Anschriften der 
Wehrdienstberater und Informa- 
tionen zu sicherheitspolitischen 
Themen beinhalten. Generalma- 
jor Bernd Krug, Kommandeur der 
7. westfälischen Panzerdivision, 
ließ es sich nicht nehmen, persön- 
lich von interessanten Angeboten 
der bundeswehreigenen Mailbox 
Gebrauch zu machen. Im Stabsge- 
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bäude der 7. Panzerdivision in der 
Unnaer-Hellweg-Kaserne setzte 
sich Krug selbst vor den Compu- 
ter. Jetzt hofft er auf die Neugierde 
all derjenigen, die die techni- 
schen Voraussetzungen besitzen, 
um den Zugang zu diesem neuen 
Informationssystem nutzen zu kön- 
nen. 


Kleiner als ein Pfennig ist dieser neu- 
este 1 Megabit-Chip. Seine Leistun- 
en sind aber riesig: Die Bibel zum 


SE ließe sich auf etwa 40 dieser 
IBM-Chips speichern und zum „Le- 
sen" des gesamten Textes benötigen 
die elektronischen Winzlinge weniger 
als eine Sekunde. Die Schaltungen auf 
den Chips sind so fein, daß aller nor- 
males Schreibmaschinenpapier rund 


100 mal dicker ist. Bei der Informa- 


tionsverarbeitung in Industrie, Wirt- 
schaft, Ingenieurwesen und Wissen- 
schaft soll dieser Megabit-Chip neue 
Maßstäbe in der Computerleistung 
setzen. (Foto: Kontar) 


Japaner gegen 
EDV-Gangster 


Japanische Justizbeamte sind auf 
dem großen Sprung in Sachen 
Computer-Kriminalität: Bis 1989 
sollen Gesetze gegen die wach- 
sende Zahl von EDV-Verbrechen 
vorliegen. Bereits anfang des 
nächsten Jahres wird das Japani- 
sche Parlament einen Entwurf aus 
dem Justizministerium beraten 
können. 

Gegenwärtig gibt es in Japan kei- 
ne gesetzliche Handhabe gegen 
Vergehen in den Bereichen EDV 
und Hightech. Bisher wurden die 
Artikel über die Störung von Be- 
triebsabläufen angewandt. Dabei 
waren Strafen bis zu drei Jahren 
Gefängnis und Bußen bis höch- 
stens 2000 Franken angedroht. 
Polizei und Justizbehörden haben 
zunehmend mit Verbrechen zu 
tun, bei denen mittlere und große 
Anlagen involviert sind. Davon 
gibt es in Japan mittlerweile rund 
165 000 Stück. 

In den letzten 14 Jahren wurden 58 
Fälle von Computer-Kriminalität 
bekannt, an 49 davon waren Insi- 
der beteiligt. „Glücklicherweise 
ist Japan in diesem Bereich noch 
nicht so weit wie die USA", sagte 
ein Sprecher der Justizbehörde. 
„Die Arbeitsweise der Täter war 
bisher eher primitiv." 

Mit den neuen Gesetzen wollen 
die Behörden der ungesetzlichen 
Entwicklung rechtzeitig einen Rie- 
gel vorschieben. Es scheint höch- 
ste Zeit zu sein: Eine Erhebung hat 
kürzlich ergeben, daß sich mehr 
als 30 Prozent von 1546 befragten 
EDV-Spezialisten ab und zu auf il- 
legale Art Zugang zu Computer- 
Informationen beschaffen. 


Im Auftrag der Messe- und Aus- 
stellungs-AG war der Verein zur 
Förderung der Pädagogik der In- 
formationstechnologien e. V. in 
diesem Jahr Ausrichter des Com- 
putercamps auf der CeBIT in Han- 
nover. Im Rahmen dieses Compu- 
tercamps wurde während der 
Messe ein Computerspiel-Wettbe- 
werb durchgeführt. In zwei Com- 
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puterspielen von Radarsoft ermit- 
telten die Teilnehmer den jeweils 
Tagesbesten, dem als Siegesprä- 
mie ein Jahresabonnement von 


RUN zukam. Die Gewinner sind 
Michael Roland 
4902 Bad Salzuflen 
Lutz Görtzen 

4240 Emmerich 
Stefan Kimpel 
2816 Kirchlinteln 
Thilo Rohmann 
3308 Königslutter 
Roger Duske 

3257 Springe 1 
Thomas Vollmer 
7952 Durmersheim 
Stefan Schwoon 
3200 Hildesheim 
Klaus Ott 

2803 Weyhe 


Piratenjagd 


Das jüngste Mitglied jener illu- 
stren Jagdgesellschaft, die zum 
großen Halali gegen Software-Pi- 
raten bläst, heißt Phoenix Techno- 
logies. Phoenix wiederum ist be- 
rühmt für jene Software, die vielen 
Herstellern den Schlüssel zum 


IBM-kompatiblen Personalcompu- 
ter liefert: das Basic Input Output 
System (BIOS). 

Vor kurzem gab die Firma ein Ab- 
kommen mit Ultimate Systems aus 
Toronto bekannt, wonach sich die- 
se verpflichtet, die Produktion ih- 
res bei Phoenix abgekupferten 
IBM-kompatiblen ROM-Bios einzu- 
stellen. Damit will Phoenix ein Si- 
gnal für andere setzen. „Wir glau- 
ben, daß weitere 40 bis 50 Firmen 
in Asien, Kanada und den USA un- 
ser Copyright verletzen, und be- 
absichtigen, unsere Rechte rigo- 


ros durchzusetzen", erklärte 
Phoenix-Präsident Theodore Jo- 
seph. 


Phoenix beliefert als führender 
Hersteller Firmen wie Tandy, Kay- 
pro, Leading Edge, Wang, Texas 
Instruments, NEC und Hewlett- 
Packard mit IBM-kompatiblem 
ROM-Bios für ihre IBM-kompati- 
blen Personalcomputer. Phoenix 
„Klont“ selbst in einem gewissen 
Sinne IBM-Software, dies jedoch 


sei, erklärte Joseph, etwas ganz 
anderes als das illegale Kopieren 
von Phoenix-Software. 

„Wir taten wesentlich mehr, als 
ein Bios zu bauen. Wir haben uns 
in riesige Kosten gestürzt, um 
sicher zu gehen, daß wir uns beim 
Entwurf der IBM-Kompatibilität in 
klaren legalen Grenzen bewe- 
gen", sagte Joseph, und: „Je näher 
ein Produkt dem Status eines In- 
dustrie-Standards rückt, um so un- 
vermeidlicher wird so etwas vor- 
kommen.“ 

Phoenix hat in einer viermonati- 
gen Untersuchung gegen Ultimate 
Systems und andere eng mit der 
Royal Canadian Mounted Police 
und den kanadischen Behörden 
zusammengearbeitet. 

Stephen Abt, Marketing Manager 
für Kompatibilitäts-Software bei 
Phoenix, erzählte, man sei auf die 
Piraten gestoßen, weil PC-Besit- 
zer, die glaubten, legales ROM- 
Bios zu verwenden, Updates und 
Unterstützung verlangt hätten. 


THE FINAL GARTRIDGE || 


DAS Betriebssystem für den Expansionsport Ihres C 64/C 128 (C 64-Modus) 


1986 wurde das 
FINAL CARTRIDGE 


in London mit einem 
OSKAR ausgezeichnet. 


NEU: geFREEZEte Programme laufen jetzt auch ohne Modul auf jedem C 64! 


FREEZER — Ein Super-Kopierprogramm. Erlaubt 
Komplettkopie (auch aus laufenden, geschützten 
Programmen) auf Diskette oder Kassette. Der 
FREEZER ist voll menügesteuert. Programme las- 
sen sich unterbrechen und später wieder fortsetzen 
(z.B. Schach). 


HARDCOPY — vom Text- oder Grafikbildschirm 
(auch Mehrfarbmodus) ist an beliebiger Stelle des 
Programms möglich. Automatisches Suchen der 
Bilderadressen. 


INTERFACE — Centronics (parallel) oder Commo- 
dore (seriell) für jeden (grafikfähigen) Drucker inte- 
griert. Druckt auch Commodore-Grafik- und Steuer- 
zeichen, inklusive ganzseitigem Bildschirm- 
Ausdruck in zwölf(!) Grautönen. 


MONITOR — Komfortabler Maschinensprache- 
Monitor: z.B. Auslesen, Abspeichern (auch der 
RAMs »unter« den ROMs mittels Bank-Umschal- 
tung), Suchen, Füllen, Vergleichen, Verschieben, 
Assemblieren, Disassemblieren, Druckerausgabe 
möglich. 


in einer Modulbox, das keinen 


Speicherplatz belegt, und sofort nach 
dem Einschalten zur Verfügung steht 


— nur Stecken, kein Löten! 


SPIELETRAINER — Der Trainer erlaubt das Ab- 
schalten der Sprite-Kollision. Dadurch ist es mög- 
lich, sich durch das Spiel (Adventure) zu bewegen, 
ohne in Gefahr zu geraten 


FLOPPYTURBO — Diskettenzugriff beim Laden und 
Speichern bis zu 6mal schneller, Beschleunigung 
auch bei anderen Funktionen. 


DATASETTEN-TURBO — 10mal schneller, auch bei 
Datentfiles. Normale Commodore-Befehle. Kompati- 
bel zu Standard-Turbos. 


24-KBYTE-EXTRA-RAM — »unter« den ROMSs für 
BASIC-Programme nutzbar. 


BASICTOOLKIT — mit AUTO, RENUM (inkl. 
Sprungadresse), FIND), OLD, HELP (hilft bei 
Programmierfehlern), DEL (zum Zeilenlöschen), 
(D)APPEND (»Anhängen« von Programmen bei 
Disk(!) oder Kassette), etc., ca. 40 Extra-Befehle 


insgesamt. 
1 SENSATION !! 


inklusive: 

%* FREEZER 

%* SPIELETRAINER 

%* DISK-TURBO 

* CENTRONICS- 
INTERFACE usw. 


DISK-MONITOR — Auslesen der Inhalte von 
Spur/Sektor, Ändern und Zurückschreiben auf Disk, 
Zugriff auf Floppy-Speicher (RAM und ROM) inklu- 
sive Änderungen (RAM). 


PROGRAMMIERTE FUNKTIONSTASTEN — belegt 
mit RUN, DLOAD, DSAVE, DIRECTORY, MONITOR, 
DOS-Befehle, LIST (umgeht jeden LIST-Schutz). 


ERWEITERTE TASTATURFUNKTIONEN — erlaubt 
teilweises Löschen von Zeilen, wartet bei Listings, 
setzt Cursor in die linke untere Ecke, POKE's- und 
SYS-Aufrufe in Hexadezimalzahlen. TYPE-Befehl 
läßt Ihren Drucker wie eine Schreibmaschine arbei- 
ten. 


RESETTASTER — Reset-Sprung in das Monitor- 
Programm. Reset ohne Programmverlust (Old), Re- 
set aus jedem geschützten Programm. 


Versand durch Nachnahme oder Vorscheck 
plus Porto/Verpackung (DM 12,—). 


Weltweit über 50.000mal FINAL CARTRIDGE verkauft!! 


Wegen des riesigen Erfolges ab sofort nur noch 


WW NEID ETER WED DO 


Centronics-Userport-Druckerkabel (ca. 100 cm lang) DM 39,— 
Kopmanshof 69, 3250 Hameln 1, Tel. 05151/43266 


Händleranfragen erwünscht 
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Datenbanken 


Online per Mailbox 


Mailboxen bieten beides: passive 
und aktive Kommunikation. Und 
dafür besteht ein beträchtlicher 
Bedarf. Hier ist alles über den 
„Zeitversetzten Transfervorgang" 


Wer zum Thema „Mailbox“ Überlegungen anstellt, 
wird nicht nur terminologisch an die Metapher von 
der „Black Box“ erinnert. Deren kompliziertes „In- 
nenleben“ wird, wie man weiß, gedanklich ausge- 
blendet. Auf In- und Output kommt’s da per Saldo an, 
sonst nix! Auf die YO-Komponente beschränkt sich 
denn auch die Funktion einer Mailbox: Ein Postfach, 
in dem Nachrichten deponiert und irgendwann ab- 
geholt werden können. Nothing else! Und kein Ver- 
arbeitungsvorgang „dazwischen“! Eine passive Kom- 
munikations-Chose, ganz klar! Informationstheore- 
tisch, genauer, steht „Mailbox“ für einen zeitlich ver- 
setzten Transfervorgang. Daß der mit einem enor- 
men Bedarf korrespondiert, zeigen Analysen der te- 
lefonischen Realität (und der Run auf Anrufbeant- 
worter): Denn der gewünschte Ansprechpartner ist 
höchstens in der Hälfte der Fälle sofort erreichbar. 
Vom frustrierenden Hinterhertelefonieren leben nun 
freilich ganze Legionen, arbeitsmarktmäßig mögli- 
cherweise erfreulich, ansonsten der reinste Nonsen- 
se! Sinnlos auch, weil ein Großteil des floatenden 
Info-Volumens vom Typ her einseitig ist, des interak- 
tiven Rahmens also gar nicht bedarf. 


Wenn Mailboxen konkret beides — die passive und 
die aktive Kommunikation — bieten, entspricht frei- 
lich auch dies einem beträchtlichen Bedarf, wie nicht 
zuletzt der Box-Boom indirekt beweist. Es liegt auf 
der Hand, daß dabei jedoch, im Rahmen dieser Da- 
tenbank-Serie, die unzähligen sogenannten Freak- 
Mailboxen außen vor bleiben. Professionelle Mail- 
boxen sind zum Teil unser Thema — genauer noch: 
Was sie als Gateway zu Online-Datenbanken bieten! 
Und darauf verzichten einige! 

Das nämlich sind sie auch — neben ihrer multifunk- 
tionalen Allround-Rolle etwa als intelligenter Info- 
Verteiler, als Telex-Ticker, als Translater, als Btx- 
Ticket, als Großcomputer-Connection — kurzum als 
kommunikativer Tausendsassa. 


Juristisch liegt dem ein simpler Vorgang zugrunde: 
Mailbox-Betreiber sind, gegenüber ihren DB-Liefe- 
ranten, sogenannte Sub-Hosts. Sie selbst haben Nut- 
zungsverträge mit jeweils mehreren Hosts, was für 
den MB-Kunden heißt: Er hat einen Super-Host an 
der Hand, kann „auf einen Schlag“ mit mehr Daten- 
banken kommunizieren und muß weniger (das heißt 
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nur mit einem Vertragspartner) kontrahieren. Ir- 
gendwann wird er auch eigene, zuvor nur intern ge- 
nutzte Datenbanken einspeisen können — ein ko- 
stensparender Tauschvorgang. Damit entfällt auch 
der ganze krampfige Papierkrieg — fast! Eine Rech- 
nung — nicht mehr. Die Kosten: Da mischen sich Mi- 
nus- mit Pluspunkten, letztere dürften jedoch unterm 
Strich überwiegen. Langfristig sowieso: Da werden 
die Hosts um die Gewährung von relevanten Rabat- 
ten für ihre MB-Klientel nicht herumkommen. Nicht 
zu vergessen auch: Der Time-is-money-Effekt etwa 
beim schnellen Verbindungsaufbau. Einziger Kun- 
den-Nachteil dabei: die Qual der Wahl... 

Freilich gibt's noch, öffentlich sei's geklagt, ein ech- 
tes Handicap, eines, das nach wie vor die ganze Sze- 
ne verseucht: Sprachlich muß er im Zweifelsfall stän- 
dig umschalten. Von GRIPS auf GOLEM, von XYZ auf 
ZYX. Gedanklich, intellektuell, muß er ständig um- 
polen, immer neue Such-Vokabeln parat haben — 
eine frustige Tour de Force! Ein Sauna-ähnliches 
Wechselbad der Gefühle: Komfort der Extraklasse 
auf der Mailbox-Menü-Ebene, Desaster nach dem 
Durchschalten! Die Deutsche Mailbox, Marktführer 
wohl, weil gut gemanagt, nervt ihre Nutzer gleich mit 
fünf Suchsprachen! 


Black Box mit Blackout 
NARPTET TOTER 


Sprachakrobaten wären da gefragt, eine kleine, 
kompetente Minderheit, klar — die marktrelevante 
Mehrheit bekommt bei dieser Art von „Black Box" 
eher einen Blackout... . Gernot Marsch, dem GF der 
Handelsblatt GmbH (GENIOS!), ist jedenfalls beizu- 
pflichten, der auf der Infobase '86 vom „Fleckerltep- 
pich deutscher Datenbank-Kleinstaaterei" sprach 
und fazitmäßig feststellte: „Man (kann) über etliche 
der jetzt aus dem Boden sprießenden Mailboxes 
Hunderte von Datenbanken erreichen; sicherlich ein 
vernünftiger Schritt, er versetzt die Barrieren für 
eine sinnvolle Nutzung von Datenbanken aber nur 
eine Stufe weiter, wo eine Vielfalt von Abfragespra- 
chen für nichtprofessionelle Nutzer doch einen 
schwer zu durchdringenden Dschungel bildet." Er- 
forderlich folglich: Eine Flurbereinigung methodi- 
scher Art! 

Auf Marktnischen spekulierend und nur selten blöd, 
haben die BM-Betreiber das natürlich schon längst 
gemerkt. Nivellierung der Benutzeroberfläche, Zwi- 
schensprache, intelligentes Interface — das sind die 
magischen, die heißen Stichworte der Mailbox-Bran- 
che. Was konkret bedeutet: Zwischenschaltung ei- 
nes Programms, das Menüführung produziert. Oder 
— analog einem Übersetzungsprogramm — eine Art 
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Sub-Host-Sprache, ein DB-Esperanto des Mailbox- 
Betreibers. Nachteil: Der Babylon-Effekt bliebe be- 
stehen, wenn auch gebremst. Ein Kunde mit einem 
Kontrakt merkte nichts davon. Nutzt er dagegen 
mehrere Mailboxen oder werden diese miteinander 
vernetzt (ohnehin ein heißer Trend), ginge der ganze 
Krampf wieder von vorne los. Erst recht kann es kei- 
ne Lösung sein, den Markt etwa so zu monopolisie- 
ren, wie das in den USA der Fall ist, wo sich die Sze- 
ne über den Lockheed-Effekt krank ärgert. Der ge- 
meinsame Language-Standard, die Norm — that's 
the solution! 

Ansätze dazu auf der Ebene der einzelnen MBs 
gibt's längst, Standardabfrage genannt. Sinnvoll 
dann, wenn eine gesuchte Zielinformation „aus dem 
Stand“, das heißt auf simple Weise, etikettiert wer- 
den kann. Den Rest macht der Mailbox-Rechner 
dann erstens ganz fix und zweitens mit Ablage im 
Fach. Und das heißt: Er ist dabei aktiver, der User 
passiver, und das funktioniert vor allem dann, wenn 
keine Erweiterungen oder Verengungen der Frage- 
stellung erforderlich sind. 

Mehr als eine marginale Nutzung der Datenbestän- 
de ist da also letztlich nicht drin. Intelligentere, raffi- 
niertere Abfragen sind somit nicht möglich. (Mehr zu 
diesem Thema in RUN 6/87.) Ein Schritt in die richti- 
ge Richtung zweifellos, aber eben auch nicht mehr! 
Kein Wunder, daß in Sachen Norm schon Grips 
(nicht zu verwechseln mit der gleichnamigen Retrie- 
val-Sprache!) en masse investiert wurde. Erstes Re- 
sultat: Die bereits angedeutete, übergreifende Me- 
nüführung, von CEM, einem Newcomer, angeboten. 
Was es konkret und letztlich bringt, ließ sich bei Re- 
daktionsschluß noch nicht evaluieren — wird jedoch 
nachgeholt! Gleiches gilt für GeoNet. Auch da folgen 
noch die relevanten Informationen! 

Der Pferdefuß der Menütechnik freilich ist auch so 
offenkundig, daß er nähere Erläuterungen überflüs- 
sig macht: Höherer Zeitaufwand — Kosten halt. Die 
da versteckte Kontroverse wiederum, von Standard- 
programmen her bekannt, beruht letztlich auf einem 
Zielgruppenkonflikt der Anbieter: Masse per Menü 
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(und Umsatz) — im Clinch mit Profi-Interessen (mehr 
Speed per individuellem Vokabular). Wie’s ausgeht, 
weiß noch keiner so recht. 

Zu berichten ist schon jetzt über konzeptionelle — 
und thematische Unterschiede der MB-Anbieter. Die 
Deutsche Mailbox, deren Mitarbeiter Thomas Esher 
indirekt zu diesem Artikel beigetragen hat, will, klar 
erkennbar, den Markt über DB-Masse erschließen. 
Den umgekehrten Weg geht die COM.BOX Gilde 
(seit neuestem eine Genossenschaft): Mit dem eher 
speziellen thematischen Schwerpunkt „Berlin“ und 
dem festen Blick auf die schreibende Branche sucht 
man da seinen Markt. Daß man sich jüngst den briti- 
schen Host Datasolve „geangelt“ hat, spricht freilich 
für eine neue, ergänzte Strategie. CEM belebt auf je- 
den Fall die Konkurrenz (und kontrahiert mit Bertels- 
mann, einem der besten Hosts). Orion, auch Ver- 
tragspartner der Gütersloher, ist derzeit noch 
schwerer einschätzbar. Daraus könnte aber mal was 
werden, zumal die NRW-Kerle als Koordinatoren al- 
ler Techno-Parks fungieren — Know-how und Bezie- 
hungen also allemal haben. Bliebe noch zu erwäh- 
nen, daß auch einer der innovativsten MB/DB-Zen- 
tren, die BSD (Btx Südwest Datenbank) Leistungen 
der Art anbietet. Nur: Da läuft das (noch) getrennt: ei- 
nerseits eine (kommerzielle) Mailbox der Superklas- 
se, andererseits Datenbanken, die (auch) nur Plusno- 
ten verdienen. Nun spricht die Situation der äußerst 
flexiblen Szene allerdings dafür, daß sich das än- 
dern könnte... 

Ein Trend schließlich verdient noch erwähnt zu wer- 
den: Die Mailbox-Betreiber machen sich im Markt 
der Info-Broker breit. Ein dramatischer Vorgang — 
mit Folgen! Die einen sitzen, was keiner ignorieren 
kann, am längeren Hebel. Und die anderen werden 
sich wohl wehren! Nur wie? 

Alles folglich im Fluß, und keiner weiß Bescheid?! 
Jein! Denn: Wir bleiben dran. Aber: Mehr als die 
„Marktbewegungen“ zu protokollieren (und journali- 
stisch sauber zu kommentieren), können und wollen 
selbst wir nicht! 


(Reiner Uhl) um 


Adressen 

l. CEM Commercial Electronic-Mail GmbH, 
Europe 
Weender Str. 80/82 

3400 Göttingen, Tel. 05 51/48 44 99 

2. COM.BOX Gilde 

Potsdamer Str. 96 

1000 Berlin 30, Tel. 0 30/2 61 15 45 

3. Deutsche Mailbox, GmbH 
Blücherstr. 11/Pf. 50 03 24 

2000 Hamburg 50, Tel. 040/38 13 76 

4. ORION - Techno Park 

2808 Syke, Tel. 0 42 42/51 34 


Mai/87 W 17 


Bücher 


Bookware — 
querbeet 


„Mythos“ — derzeit eher semanti- 
scher Tand, eine modische Zeit- 
geistvokabel, die alles — und des- 
halb nichts (mehr) besagt. Nahe- 
liegend also, daß, wer vernebeln 
will, wer mehr auf Show und Auf- 
lage aus ist, logo, daß sich dieser 
derart dürftiger Schlagworte be- 
dient. Denn „Mythos“, das könnte 
sein (und so war's einmal): Die 
Steigerung von logos: Wort, Rede, 
Erzählung, Diskurs. Aber auch: 
Gerücht, terminologischer „Ne- 
bel", schillernder Schein letztlich! 
So ungefähr verhält es sich wohl 
mit der Titulierung eines Buches, 
das — auf der Frontpage — Aus- 
führungen „über die Mythen des 
Computer-Zeitalters" verspricht. 
Um Theodore Roszaks „Der Ver- 
lust des Denkens" geht es hier, 
und, soviel sei schon verraten, 
dieses Buch würde auch ohne die 
semantischen Manipulationen des 
Headline-Lektors seinen Markt 
finden. Es ist nämlich — schlicht 
und ergreifend sei's gesagt — gut! 
(Und Gutes, wissen wir längst, 
setzt sich doch durch — oder?) 
Roszak, Autor und History-Prof in 
einem, betätigt sich vor allem als 
kultureller und „soziologischer" 
Seismograph. Auf der Ebene ver- 
spürt er gravierende, ständig stei- 
gende Gefahren. Quelle allen 
Übels, wie könnte es auch anders 
sein: der Computer. Dessen enor- 
me, und damit auch kulturell-rele- 
vante Verbreitung einerseits, des- 
sen rigide „Logik“ andererseits — 
das, so der Autor, beschwört 
grundlegende Risiken herauf: 
Nicht weniger als „Der Verlust 
des Denkens" droht da. Ergo: 
Ganz schön viel Mieses auf ein- 
mal! 

Denken — dieser Vorgang wird 
einfühlsam beschrieben, ist näm- 
lich, ist nun mal weit mehr. Mehr 
jedenfalls als das simple Ja/Nein- 
Schema, zu dem allein die super- 
ben Prozessoren fähig sind, mehr 
auch als der prozedurale Vor- 
gang, der auf der Benutzerober- 
fläche „rüberkommt“ — und die 
grundlegenden Head-Gewohn- 
heiten der User gängelt. Das wohl 
ist das — mit Recht — negativ be- 
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setzte Alarmsignal dieses Buches, 
in dem, immer wieder und hart- 
näckig unterstrichen, die Hoff- 
nung auf die Revitalisierung be- 
währter „abendländischer" Wer- 
te aufkeimt. 
„Technologiefolgen-Abschätzung" 
(TA) im weitesten Sinne könnte 
das richtige, das summarische 
Motto dafür sein, ein wertvoller 
Beitrag zum Thema ist's allemal. 
Auch ist Joseph Weizenbaum, 
dem alten Oberguru der C-Szene, 
zuzustimmen, der sich mit ei- 
nem polemischen Rundumschlag 
schon mal an die Grenze der 
Glaubwürdigkeit gebracht hat 
(siehe: RUN 2/85): „Mit diesem ge- 
dankenvollen, genauen und über- 
aus gescheiten Buch kündigt sich 
eine Neubewertung von Wissen- 
schaft und Technik an. Der über- 
legt-ruhige Ton Theodore Roszaks 
steht in bezeichnendem Gegen- 
satz zu der lauten, selbstgefälligen 
Kakophonie einfältiger Ergüsse 
seitens jener Neopositivisten, die 
sich um das Banner der ‚künstli- 
chen Intelligenzia' geschart ha- 
ben." Roszaks „Verlust... .“ ist, in 
Qualität und Tiefenschärfe, ein mit 
Sherry Turkles „Wundermaschi- 
ne“ vergleichbares Buch (siehe: 
RUN 1/85). Plusnoten, selten an- 
gebracht, verdient schließlich die 
Übersetzung. 

Mit weit weniger „Feeling“, 
gleichwohl überraschenden Er- 
kenntnissen wartet David Ritchie 
auf. Sein Thema: „Gehim und 
Computer“. Ganz auf die Mentali- 
tät amerikanischer Sachbuchleser 
abgestimmt, die jedes Thema 
schnell, journalistisch gekonnt, 
„mundgerecht" & McDonald’s- 
konform serviert haben wollen, 
beginnt er bei Adam und Eva und 
landet recht fix beim Main-Thema 
künstliche Intelligenz, deren Pro- 
tagonisten sich bekanntlich einbil- 
den, die Verzwicktheit menschli- 
chen Denkens nachbilden zu kön- 
nen. Prophylaktisch baut Ritchie 
freilich auch sedative Komponen- 
ten ein. Motto: Alles halb so 
schlimm; das menschliche Gehirn 
wird die Oberhand behalten! 
Wenn man ihm diese Message 
nicht immer ganz abnimmt, dann 
liegt das an seiner irgendwie fast 
totalen — von Zweifeln letztlich 


doch nur selten „angenagten", oft 
naiv anmutenden — „Fortschritts- 
gläubigkeit", die den Wert dieses 
Buches mindert, wenn auch nicht 
wesentlich! 

Einen eher zurückhaltenden und 
— im Gegensatz zum Vorwort — 
auf „tiefschürfende" Interpretatio- 
nen verzichtenden Weg gehen 
Peter Otto und Philipp Sonntag, 
Beide — Mathematiker der eine, 
Physiker der andere — haben 
sich teilweise aus den Fesseln ih- 
rer angestammten Disziplinen be- 
freit — und vorrangig ein Inter- 
esse: „Wohin laufen die Trends 
in Sachen „Informationsgesell- 
schaft"? Und: Was steckt „dahin- 
ter"? Wenn in der zugrunde- 
liegenden, von der Max-Planck- 
Gesellschaft finanzierten For- 
schungsarbeit das Stichwort 
„Übergangskrisen" (in Politik, Ge- 
sellschaft und Kultur) auftaucht, 
mag das den 08/15-Leser kaum 
verblüffen, gleichwohl macht es 
mißtrauisch: Denn mit derlei Vo- 
kabular haben Marcuse & Co. 
(samt aller nachbetenden Nachfol- 
gern) ihr Publikum zirka 20 Jahre 
„an der Nase herumgeführt". Ge- 
bracht hat's natürlich nichts! Als 
Krise läßt sich nämlich so gut wie 
alles „definieren“, auch dies also 
eine intellektuell unredliche Leer- 
formel — wie „Mythos“ (siehe 
oben)! Zu fragen wäre freilich 
auch, was die beiden Autoren 
denn nun fachlich qualifiziert, 
über ein so an sich überaus an- 
spruchsvolles Thema zu referie- 
ren. Auch wer lange, fair und 
systematisch sucht, findet da (fast) 
nichts — außer einer fragwürdi- 
gen Version intellektueller 
Schaumschlägerei — Marke 
Schmalspur. Dennoch: Den eige- 
nen AÄnsprüchen „entkleidet", 
kann das Buch Hilfestellung bie- 
ten: als faktenreiches Kompen- 
dium in Sachen „Info“. So kompri- 
miert konnte man über die Meta- 
morphose des Faktors „Informa- 
tion“ selten lesen. Fachliche De- 
fizite zwar auch da, ebenso bei 
der scheußlich-unbeholfenen 
Schreibe. Indes, per saldo und un- 
ter Preis-Leistungs-Gesichtspunk- 
ten: Ein (Taschen-)Buch, das mehr 
zum Thema bringt, ist bisher nicht 
auf dem Markt! 


Nicht nur die (Online-)Datenban- 
ken boomen, die einschlägige 
Bookware (wenn auch mit zeit- 
lichem Abstand) tut's auch: Zur 
Folge hatte das zwei neue Paper- 
Qutputs, die — hoffnungsfroh sei's 
gesagt — einen Trend markieren: 
Der Krampf (siehe: RUN 2/87) kor- 
rodiert. Und Schnellschüsse „lau- 
fen" zunehmend ins Leere! Wis- 
sen wir doch längst: Das Bessere 
war schon immer der Feind des 
Guten! 

„Denkanstöße" und „praktische 
Informationen“ zur Datenbankre- 
cherche sowie zur erfolgreichen 
„Umsetzung“ der extrahierten 
Files verspricht (und hält!) das 
Buch „Fachwissen Datenbanken 
— Die Information als Produktions- 
faktor". Es handelt sich dabei um 
eine Sammlung von Beiträgen, die 
zum Teil schon an anderer Stelle, 
vor allem in Cogito („Neue Wege 
zum Wissen der Welt"), publiziert 
wurden. Die Autoren: Ein Team 
zum Teil hochkarätiger Profis 
(vom FIZ-Technik, der Online 
GmbH und anderen). Thematisch 
decken sie eine relativ breite Pa- 
lette ab: Informationsmanage- 
ment, Literatur/Fakten/Volltext- 
Datenbanken, Databases für For- 
schung, Entwicklung, Konstruk- 
tion sowie für betriebswirtschattli- 
che Zwecke. Schon klar, daß 
(auch) da einige Themen mit sträf- 
licher Ignoranz „behandelt“ wer- 
den, auch sind ärgerliche Über- 
schneidungen zu verzeichnen. 
Beim Gesamteindruck jedoch 
überwiegen die Pluspunkte bei 
weitem! Pflichtlektüre für jeden 
Onliner! 

Ganz frisch vom Drucker kommt 
Matthias Uhrigs „Datenbanksyste- 
me und Online-Datenbanken‘. 
Erster Eindruck: Von allem etwas, 
und da, wo's ums „Eingemachte" 
geht, zu wenig! Intensiveres Nach- 
blättern belehrt den Leser frei- 
lich, daß es sich hier um ein aus- 
gesprochen „kluges“ Buch han- 
delt. Der „Dollpunkt“ der Daten- 
banken ist ja nun mal ihre Struktur 
(von manchen auch „Architektur“ 
genannt). Jedoch: Auch wer deren 
konstruktive Details nicht kennt, 
kann in der Regel „seine“ Ziel- 
information „herausfiltern“. Wä- 
ren die Pools nur für Profis ange- 
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legt, wäre der Markt wohl zu ma- 
ger, zu wenig profitträchtig. Die 
Marketing-Maxime der Hosts zielt 
demzufolge vorwiegend auf „un- 
beleckte“ Nur-Nutzer (mit Null-In- 
teresse für das „Innenleben“ der 
Blackbox). Kein Zweifel aber 
auch, daß sich derjenige leichter 
tut, der Kenntnisse dahingehend 
hat, wie die Daten/Files denn nun 
„vernetzt“ wurden (nach „oben“ — 
hierarchisch — und/oder „seit- 
wärts" und so weiter), wie „va- 
riabel“ und dergleichen mehr. 
Wenn sich Uhrigs Werk mit zirka 
Zwei Dritteln seines Inhalts dieser 
Thematik widmet, dann ist das — 
deshalb — verdammt verdienst- 
voll. Konkretisiert und präzisiert 
wird dieser strategische Ansatz 
durch eine hervorragende Dar- 
stellung von dBase III. (Dazu, zum 
relationalen Datenmodell, haben 
sich andere Autoren schon wort- 
reicher, wenn auch inkompeten- 
ter geäußert.) 

Im Teil „C* des Buches geht Uhrig 
schließlich auf „Datenbanken On- 
line“ ein. Unerläßlich wohl dabei: 
das „Warum?“. Nahtlos schließen 
sich dann technische Erläuterun- 
gen (auf der User-Seite) und News 
zum Netz an. (Und wie man weiß, 
gehört das in den Verantwor- 
tungsbereich von „Black-Penny's“ 
Post). Eine ganze Salve wissens- 
werter Info-Bits zur konkreten DB- 
Nutzung feuert der Autor am 
Schluß des Buches ab. Wenn je- 
doch im Anhang — ein Beispiel — 
etwa Bertelsmann noch als DATA- 
STAR-Host geführt wird, dann 
deutet das auf ärgerliche Aktuali- 
täts-Defizite (möglicherweise auch 
mehr!) hin. „Unterm Strich“ und 
„auf den zweiten Blick“ freilich 
mindert das den Stellenwert die- 
ses Buches keineswegs: „Daten- 
banksysteme....“ gehört künftig, 


meint der Rezensent, zu den Lite- 
ratur-Essentials jedes Onliners! 
(Reiner Uhl) 
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Im Heimbereich werden häufig Fernsehgeräte als 
Sichtschirm eingesetzt. Die meisten Heimcomputer 
verfügen über einen geeigneten HF-Ausgang. Wenn 
Sohn am Knüppel rütteln will und Vater auf Bier und 
Sportschau steht, naht Onkel Streit mit schnellem 
Schritte. Um Konflikten aus dem Weg zu gehen, soll- 
te ein zweiter Bildschirm angeschafft werden. Nur 
soll es ein Zweitfernsehgerät oder ein Monitor sein? 
Bevor man übereilt ins nächstliegende Geschäft 
rennt und einige hundert Mark fehlinvestiert, sollte 
man sich vorher über seine Ansprüche im klaren 
sein. 

Wer seinen Computer für Textverarbeitung nutzt 
und viel programmiert, kommt an einem monochro- 
men Monitor nicht vorbei. Einfarbige Geräte sind 
schon für 200 Mark zu haben. Je nach Beschichtung 
der Bildröhre gibt es ein schwarzweißes, grünes 
oder bernsteinfarbenes Bild (Gelb oder Amber sind 
andere Bezeichnungen für Bernstein). Billige Farb- 
monitore für unter 1000 Mark können monochromen 
Monitoren in punkto Bildschärfe nicht das Wasser 
reichen. Bei Heimcomputern mit nicht mehr als 40 
Zeichen pro Zeile ist ein Farbmonitor bei geeigneter 
Farbeinstellung vertretbar. Muß ein Farbmonitor 80 
Zeichen pro Zeile darstellen, sollte er eine Auflösung 
von mindestens 640 x 200 Punkten haben. Wer viel 
am Rechner arbeitet, sollte beim Monitorkauf nicht 
sparen — Kopfschmerzen und Müdigkeit bei überla- 
steten Augen sind vermeidbar. 

Eine preiswerte Lösung sind Industriemonitore mit 
ausgezeichneter Bildqualität, die für unter 100 Mark 
bei größeren Elektronikhändlern wie Völkner, Con- 
rad etc. im Versand erhältlich sind. An anderer Stel- 
le dieser Ausgabe wird eine kleine Schaltung be- 
schrieben, die den Anschluß von Industriegeräten 
am C64 ermöglicht. 


Monitor als Farbfernseher 
BETT ETTRIETEIEE 


Sollen farbige, komplexe Grafiken dargestellt oder 
Text- und Programmteile besonders hervorgehoben 
werden, dann ist man mit einem Farbbildschirm gut 
beraten. Der Programmierer legt sich einen Farbmo- 
nitor am besten als Ergänzung zum monochromen 
Gerät zu. Bei Heimcomputern, mit denen viel ge- 
spielt wird, kommen Farbfernseher oder preiswerte 
Farbmonitore in Frage. Viele Billig-Farbmonitore 
sind nicht besser als ein gutes Fernsehgerät. Der An- 
schluß eines Fernsehers mit großer 66-cm-Bildröhre 
ist nicht ratsam. Ideal sind Geräte mit nicht mehr als 
40 cm Bilddiagonale und flachem Bildschirm. Zahl- 
reiche moderne Farbfernseher im Monitorlook ver- 
fügen über einen Video-Eingang, zusätzlich zum An- 
tenneneingang. Diese Geräte sind in jedem Fall zu 
bevorzugen. Mattscheiben im Monitor-Design sind 
beispielsweise bei Sony, Grundig oder Sanyo in der 
Preisklasse von 800 bis 1200 Mark erhältlich. Ein Ge- 
heimtip sind Sony-Geräte mit Black-Triniton-Röhre, 
die ein besonders kontrastreiches Bild aufweisen. 
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Monitore gibt es wie Sand am Meer, 
doch nicht jedes Gerät ist für jeden 
Anwender geeignet. Wer sich einen 
Monitor kaufen will, hat die Qual der 
Wahl. Farbe oder monochrom? Teu- 
er oder billig? Tut es vielleicht der 
heimische Fernsehapparat? 


Warum Farbmonitore den monochromen unterlegen 
sind, läßt sich einfach erklären: Der Aufbau eines 
Farbmonitors ist komplexer als der des Monochrom- 
bildschirms. Zum einen ist die Beschichtung der Bild- 
röhren verschieden, zum anderen der technische 
Aufwand der Bilddarstellung. Zunächst der Aufbau 
von Monochrommonitoren: Am hinteren Ende der 
Bildröhre befindet sich eine Kathode, die bei Erhit- 
zen Elektronen aussendet. Diese werden von den 
Anoden (Gegenpol zur Kathode), die sich seitlich am 
vorderen Teil der Röhre befinden, angezogen und 
beschleunigt. Die Elektronen werden durch Fokus- 
sier-Elektroden gebündelt und werden dann als 
Punkt auf dem Bildschirm sichtbar. Ein feines Gitter 
regelt die Helligkeit. Umlenkspulen, die durch säge- 
zahnförmige Wechselströme durchflossen werden, 
sorgen dafür, daß die gesamte Bildschirmfläche aus- 
genutzt wird. Je schneller der Wechselstrom durch 
die horizontalen und vertikalen Umlenkspulen fließt, 
desto schneller bewegt sich der Elektronenstrahl 
beim zeilenweisen Durchlaufen des Bildschirms. 
Wenn die Rasterfrequenz 50 Hz (Hertz) beträgt, 
durchläuft der Elektronenstrahl 50 Mal in der Sekun- 
de die gesamte Bildschirmfläche. Je nach Beschich- 
tung der Bildröhre leuchtet der Punkt, wo sich gera- 
de der Strahl befand, eine bestimmte Zeit nach. Um 
den sogenannten Flimmereffekt zu unterbinden, 
wird die Rasterfrequenz erhöht und/oder die Nach- 
leuchtdauer erhöht. Beim Farbmonitor sind drei Ka- 
thoden vorhanden, wobei jede für eine Grundfarbe 
(Rot, Grün und Blau, daher RGB) zuständig ist. Durch 
Mischen der drei Farben können alle anderen Far- 
ben erzeugt werden. Die Beschichtung ist im Gegen- 
satz zum Monochrommonitor dreifarbig. Dicht ne- 
beneinander liegen rote, grüne und blaue Punkte. Je 
dichter die Punkte, desto höher ist die Auflösung. Be- 
vor ein Elektronenstrahl auf die Beschichtung trifft, 
durchquert er eine Lochmaske, die ihm die jeweilige 
Farbe zuweist. Die Lochmaske enthält in der Regel 
runde Löcher, die insgesamt die Aufgabe eine Sie- 
bes übernehmen. Neben der Lochmaske gibt es die 
Schlitzmaske. Sie erlaubt ein schärferes und verzer- 
rungsfreies Bild. Ohne Schlitz- bzw. Lochmaske wür- 
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de das Bild verzerrt und mit Falschfarben dargestellt 
werden. Die digitale Darstellung der Farbe erlaubt 
nur eine Palette von acht Farben. Digital bedeutet 
also, daß jede der drei Grundfarben entweder ein- 
oder ausgeschaltet ist. Bei der analogen Methode 
hängt die Farbe direkt von der Helligkeit der darge- 
stellten Grundfarben ab. Jede Farbe hat zur Hellig- 
keitssteuerung ihr eigenes Steuergitter. Die Hellig- 
keit der drei Farbpunkte entscheidet über die end- 
gültige Farbnuance. Wenn alle drei Punkte gleich- 
hell auftreffen, ergibt sich eine Graustufe. 

Bei der Auswahl eines Monitors im Fachgeschäft 
wird der Käufer mit vielen Fachbegriffen konfron- 
tiert. Da gibt's Auflösung und Interlace, BAS- und 
FBAS-Signale. Damit Verkäufer den Kunden kein X 
für ein U vormachen, folgt im Anschluß eine Liste mit 
den wichtigsten technischen Begriffen mit Erläute- 
rungen. 


Bandbreite 

Die Bandbreite sorgt für die Schärfe des Bildes. Nor- 
male Fernseher haben eine Bandbreite von 5 bis 7 
MHz. Je größer die Bandbreite, desto klarer ist die 
Darstellung. Monitore mit ca. 20 MHz benutzt man in 
der Regel für hochauflösende Grafiken und 80- 
Zeichen-Darstellung. 


Auflösung 

Die Auflösung gibt Auskunft über die Anzahl der 
Bildpunkte, die auf dem Monitor dargestellt werden 
können. Wenn ein Bildschirm eine Auflösung von 
560 x 240 Punkten hat, kann er insgesamt 134 400 
Bildpunkte (Pixels) getrennt darstellen. Einige Fir- 
men geben als Auflösung zum Beispiel > 850 Linien 
im Zentrum an, was nichts anderes bedeutet, als das 
dieser Bildschirm in der Lage ist, bis zu 850 unter- 
scheidbare horizontale Linien zu zeichnen. Im Endef- 
fekt hängt es aber vom jeweiligen Computersystem 
ab, ob es diese Fähigkeit ausnutzen kann. Beim Com- 
modore C64 sind es höchstens 200. 


Bildzeichen 

Ausschlaggebend für die Bildzeichen ist ihre Punkt- 
matrix. Je größer sie ist, desto klarer können Zeichen 
dargestellt werden. An einem Bildschirm mit einer 
Punktmatrix von 9x 14 und 80 Zeichen x 25 Zeilen 
können also Computer angeschlossen werden, die 
höchstens diese Zeichendarstellung bieten. Bei 
Computern mit mehr Bildzeichen und größerer 
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Punktmatrix kann das Arbeiten anstrengend werden 
— die Zeichendarstellung ist verschwommen. 


Zeilenfrequenz 

Bei einer Zeilenfrequenz von 18432 Hz durchläuft 
der Elektronenstrahl 18 432 Zeilen pro Sekunde. Die- 
se hohe Frequenz ist notwendig, um Flimmern weit- 
gehend zu unterdrücken. Bei höherer Frequenz 
nimmt es weiter ab. 


Interlace 

Billige Monitore benutzen dieses Verfahren zur Bild- 
darstellung. Das erste Mal durchläuft der Elektro- 
nenstrahl jede zweite Zeile. Daraufhin werden die 
zunächst ausgelassenen Zeilen durchlaufen. Da- 
durch wird die Auflösung in der Höhe verdoppelt. 
Das Bild im Speicher des Computers wird halbiert. 
Nicht dadurch, daß die Hälfte weggeschnitten wird, 
sondern daß die geradzahligen Zeilen von den unge- 
radzahligen getrennt werden. Der Monitor setzt 
dann in einer Sekunde 50 solcher Teilbilder zu 25 
Vollbildern zusammen. Die Wahrnehmungsgrenze 
des menschlichen Auges liegt bei ca. 18 Bildern in 
der Sekunde. Der Nachteil dieses Verfahrens ist, 
daß das Bild bei kleiner Videobandbreite flimmert. 
Diese Methode der Bilddarstellung wird Zeilen- 
sprungverfahren genannt. 


Non Interlace 

Der Elektronenstrahl durchläuft beim Bildaufbau die 
Zeilen nacheinander. Um die gleiche Auflösung wie 
beim Interlaceverfahren zu bekommen, müssen 
Videobandbreite, Zeilenfrequenz und andere 
Steuerfrequenzen gesteigert werden. Pro Sekunde 
werden 50 Vollbilder erzeugt. Das Flimmern wird 
nahezu unterdrückt. Da ein sehr hoher technischer 
Aufwand sich auf den Preis niederschlägt, sind sol- 
che Monitore nicht für jedermann erschwinglich. Sol- 
che Bildschirme werden zum Beispiel bei CAD-An- 
wendungen (Computer-Aided-Design) eingesetzt. 


Signal-BAS 

Signal-BAS (Bildinhalt-Austast-Synchron) ist ein 
Videoeingangstyp. Der Monitor übernimmt die Da- 
ten, die an diesem Eingang ankommen, sowohl vom 
Farb- als auch von Schwarzweißimpulsen. Sie wer- 
den als Hell-Dunkel-Signale verarbeitet. Die Infor- 
mationen werden an die einzelnen Hardware-Teile 
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Industriedatenmonitore zeichnen sich 
durch hervorragende Bildqualität 
aus. Leider lassen sie sich nicht ohne 
weiteres am C'64 anschließen. Horst 
Schulte berichtet von seiner aben- 
teuerlichen Suche nach einer Lösung 
des Problems ... 


Ein alltägliches Problem: Streit um den (Farb-)Fern- 
seher, wenn Vater, Sohn, Tochter oder Mutter den 
Fernseher zweckentfremdet für die Computerei nut- 
zen wollen, während „Dallas“ über die Mattscheibe 
flimmert. Die Lösung, den „tragbaren“ SW-Fernse- 
her zu benutzen, war auch nicht befriedigend. Die 
Anschaffung eines Farbmonitors wurde aus Kosten- 
gründen verworfen. Günstig erstand ich einen ge- 
brauchten Industriedatenmonitor (Preise liegen je 
nach Erhaltungszustand zwischen DM 70,— und 
180,— DM). 

Leider mußte ich feststellen, daß mein Monitor kei- 
nen VIDEO-Anschluß hatte — dann wäre der An- 
schluß an einen VC 20/VC 64 problemlos gewesen. 
Mein erstandener Monitor hatte 3 Signaleingänge 
(Abbildung 1): VIDEO, HS (horizontale Synchronisa- 
tion), VS (vertikale Synchronisation). 


Bet 
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c* siehe Text 


Abb. 1: Blockbild eines Industrie-Monitors 


Bei einem Monitor mit nur einem KOAX-Anschluß 
*BAS* wird das gemeinsame Signal im Monitor in 
diese 3 Teilsignale zerlegt (siehe Abb. 1). Jetzt be- 
gann die Suche nach einer BAS-Signaltrennung, die 
ohne großen Aufwand viel Nutzung versprach. Als 
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geeignete Schaltung fand ich die in Abb. 2 gezeigte. 
Benutzt werden folgende 2 IC’s (Bild 3): 

uA 733  (Valvo) 

Differenzvideoverstärker 

l4pin DIL-Gehäuse 

(Texas) 

2fach OP-Verstärker 

8pin DIL-Gehäuse. 


TL 082 


Abb. 2:BAS-Signaltrenner 


Inpur2 ı 14 Input 
NC 2 13 .NC 
GAIN SELECT R S ORIN SELECT 
1B 4 1 1A 

v- 5 1 V+ 

Nc 6 9 .NC 
Output? 7 8 Outpurl 
Output) 1 8 VOC 
Input] 2 7 Output2 
+ Input! 3 8 —Input2 
vcoc 4 5 +Input2 


Abb. 3:uA 733, TL 082 Pinbelegung 


Die Schaltung kann leicht auf einer Lochrasterplati- 
ne nach dem in Abb. 2 gezeichneten Layout verdrah- 
tet werden. Abb. 5 zeigt die Bestückung, Abb. 6 die 
Bauteileliste. 

Die OP's benötigen + — Spannung, der VC 20 / VC 


bas gnd 


BAS Signaltrennung 
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Bestückungsvarianten 
der Teiler 


Abb. 4: Platinenlayout 


zum BAS-Signaltrenner im 
Maßstab 1:1. Die Fläche 


auf Seite 23 ist absichtlich 
freigehalten. Layout 
kann direkt als 


kann direkt als Kopiervor- 
lage für Fotobeschichtete 
Platinen verwendet wer- 
den. 


Abb. 5: Bestückungsplan 
der Sionaltzenner-Plaline: 


eite. Vorgang der 
Bestückung wie ublich: 
Erst kleine Bauelemente 
wie Drahtbrücken Kr 
derstände und Di: 


sera 
toren und letztendlich die 
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Abb. 7: Video-Endstufe des VC20(alte Version) 


64 liefert +5 Volt an verschiedenen Ausgängen. (Be- 
dienungshandbuch) 

Das Netzteil meines Datenmonitors hatte - 12V zu 
bieten. Hieraus wurden mit einem '7905'-Dreibein- 
regler -5V. | 
Die Schaltung (Lochraster) verschwand im Monitor 
(+5V war auch im Monitor), so daß nur das VC 20/ 
VC 64-Videosignal mit Masse abgeschirmt zum Mo- 
nitor geführt werden mußte. Auf Anhieb kam das 
Einschaltbild, doch bei weiteren Aktivitäten schlug 
MURPHY zu, der Bildschirm wurde dunkel. 

Was nun? ..... Oszillograf her und sich auf die Suche 
nach verlorenen „BITS" & „BYTES" begeben ... 
Aha, das Videosignal an Pin 5 beziehungsweise 4 
des Spoligen Steckers lag weit unter 2,5 Volt, es 
reichte für einen Fernseher, aber nicht für den Moni- 
tor. Bei COMMODORE hatte ich mir vor Jahren 
Schaltbilder des VC20 besorgt. Schaltbilder für den 
VC 64 fand ich in einem DATA-BECKER-Buch. Der 
Schaltungsteil VIDEO ist auszugsweise auf Bild 7 zu 
sehen. Wie ich im DATA-BECKER-Handbuch ‚VC20 
intern‘ feststellen mußte, gibt es noch eine ‚moderne' 
Version des VC 20 (Abb. 8 zeigt einen Schaltungs- 
auszug). Schaltungsauszug des VC 64 zeigt Abb. 9. 


‚8: Video-E: des VC20(neue Version Durch Experimente stellte ich fest, daß meine Platine 
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nur geringfügig geändert werden mußte, um die Ein- 
gangsempfindlichkeit der Schaltung den Videosi- 
gnalgrößen der Computer anzugleichen. 2 Wider- 
standsteiler wurden durch Poti ersetzt (vergleiche 
Abbildung 10). 

390R + 10K =270R +4K7POT +8K2 

1K8 + 10K =820R +4K7POT +8K2 

Der Monitor zeigt hier ein extrem scharfes Bild. Die 
Farbdarstellung ist natürlich eingeschränkt, da Grau 
beziehungsweise Halbtöne kaum darstellbar sind. 
Da muß jeder durch eigene Experimente herausfin- 
den welche ‚Farb'-kombination auf dem Bildschirm 
zu lesbaren Ergebnissen führt. 


Pokes für Farben (siehe Handbuch) Abb. 11: Verschiebung der Hintergrundmaske 


Rahmen + Hintergrund Zeichen 
36679,X 646,X 
X=25 (ws/ws) l=sw 


Bei meinem Monitor tritt in Verbindung mit dem VC 
20 ein Phänomen auf, das etwas stört: 


Die Hintergrundmaske (Farbe) ist um 2 Zeichen nach 
links in den Rahmen verschoben. Die Zeichen sind 
aber alle an der richtigen Stelle (siehe Abb. 11). Die- 
ser Fehler (soweit meine Nachforschungen) soll an 
der fehlenden PAL-Verzögerungsleitung im B&W- 
Monitor liegen. Text und Farbhintergrund sind um 64 
ys zu früh. Eine Abhilfe ist mir zur Zeit nicht bekannt. 
Vielleicht weiß ein Leser Rat? Dieser Effekt tritt beim 
© 64 nicht auf und ist daher nur für VC-20-Fans inter- 
essant. 

Sollte das Bild vertikal ‚durchlaufen‘; von oben nach 
unten oder umgekehrt, muß der Regler ‚HORIZON- 2 
TAL HOLD’ (H.HOLD) im/am Monitor langsam ge- ERNEST EEE 
dreht werden. Beim Fernseher ist das der Bildfang., Abb. 14: Signale am Interface 
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Der Regler ‚VERTICAL SIZE’ (V.SIZE) im/am Moni- 
tor vergrößert/verkleinert die Bildhöhe. 
US-Monitore haben häufig abweichende Bildfangfre- 
quenzen, dann reicht der Regelbereich des Potis 
(H.HOLD) nicht. Abhilfe schafft ein parallelgeschal- 
teter Kondensator zum zeitbestimmenden Kondensa- 
tor der Display-Ablenkstufe. = Verstimmen des Oszi- 
lators=. 

Für die im weiteren Text beschriebene Berechnung 
werden in Abb. 12 + Abb. 13 Ausschnitte aus mei- 
nem Monitor gezeigt. 


Berechnung der Kondensatoren 

Aus dem Taktplan oder eventuell Monitor Beschrei- 
bungen zu entnehmen: Taktfrequenz HORIZONTAL 
für eine Zeile: 

55,19ysec (f=1/s) 17,886KHZ 

Taktfrequenz VERTIKAL für kpl. Bildaufbau: 
16,67msec 60HZ 

Die 

HORIZONTALFREQUENZ soll 15,625 KHZ 
VERTIKAL-FREQUENZ soll 50 HZ 

betragen. Faktor SOLL/IST-Frequenz: 

H= 1,1447 

V=1.2 

Kondensatorvergrößerung durch Parallelschalten 
von: 

H _ ((68n*1,1447)-68n) : InF 

V  ((0,22y*1,2)-0,22y)= 47hF 


Bestückte Signaltrenner-Platine 


Diese Ko's sind zu den vorhandenen parallel zu 
schalten. Die Stufen sind im Bild |] mit einem Pfeil 
markiert. Ohne Monitorschaltbild ist die Suche nach 
diesen Kondensatoren sehr mühsam. 

Der Monitorregler HORIZONTAL CONTROL ver- 
schiebt das gesamte Bild nach rechts/links (Bildzen- 
trierung). 

Abb. 14 zeigt die Videosignale an meinem VC20 
(möglichst 2,5 Vss zu erreichen versuchen!) und am 
Monitor hinter dem BAS-Signaltrenn-Modul. Die ge- 
zeigte H.Synchr.Impulsnadel schrumpft bei zu gerin- 
gem Videosignal des VC 20/ C 64 in der Breite zu- 
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Die kompakte Platine läßt sich problemlos in einem Monitor 
unterbringen. 


sammen und bricht dann ein. Das gleiche geschieht 
mit dem Bild, es bricht zusammen. Ohne Horizontal- 
signal tut sich nichts. Diese Abhängigkeit von der Si- 
gnalgröße des VC20-VIDEO-Signals läßt sich durch 
weitere Experimente mit den Feineinstellungen an 
den Potis auf der Interfaceplatine im Horizontalteil 
der BAS-Signaltrennung mildern. Da es bei mir aber 
so funktioniert, ließ ich die Finger davon. 

(Horst Schulte) EEEEEEIEIERIERSEEESEEEEEE 


Hardwarerichtig 
abgeschickt 


Die RUN-Redaktion freut sich über jede Hard- 

ware-Bastelei. Für möglichst schnelle Bearbeitung 

sollte der Einsendung folgendes beiliegen: 

— Musterexemplar der Hardware 

— Schaltplan, Bestückungsplan, Stückliste, Plati- 
nenlayout (möglichst Film) 

— detaillierte Beschreibung (Textausdruck bitte 

mit 35 Zeichen pro Zeile. Textfiles in Format MS- 

DOS, Textomat oder Vizawrite sind herzlich will- 

kommen!) 

Sämtliche Teile möglichst gut verpacken — Paket- 

aufschriften wie „zerbrechlich“ oder „bitte nicht 

knicken" werden selten beachtet! 

Wer Fragen hat, wendet sich bitte an Herrn Nick- 

les (Tel.: 0 89/3 60 86-252). 


Mai/87 um 27 


Elektr. 
BAUTEILE 


Teile für Commodore- 
Rechner: 

6526 VIA U1,U2 25.00 
6510 CPU U7 25.00 
6581 Sound-Chip U18 50.00 
6569 Video-Chip U19 80.00 
906114 PLA UI7 19.90 
325572 25.00 
EPROMS: 

2764 250ns 7.50 
27128 250ns 7.50 
27256 _250ns 12.90 
27512 _250ns 24.90 
Allg. Elektronik 
RAMS: 

6264 8K"8 Staticram 8.90 
41256 256K*] Dynamicam 8.90 
4464 64K*4 Dynamiccam 9.90 
MICROCOMPUTER: 

6502 CPU 9.80 
6520 2"8Bit Port 5.90 
6522-A VIA2MHZ 11.90 
6532 VIA 128Byte RAM 9.80 
TTL-IC’s-Superpreise 0.60 
741508 0.60 
7415373 1.80 
Komplettangebot im Info! - Bitte anfordern! 
WEREESTANDE 

100 Stück-Packung pro Wert nur 2.00 
IC-FASSUNGEN 

low cost pro Pin 0.02 
Präzision pro Pin 0. 


fordern Sie unsere Elektronik-Info an. Wir 
haben Preise, wie sie sonst nur Großhändler 
ihren Kunden gewähren!!! 


DISKETTEN 


Nur geprüfte Ware aus der Produktion 
namhafter Hersteller!!! 


5"25-Disketten 

) 10 Stock 8.90 
ee 1020 9.90 
ni een 10 Stück 27.90 
AS er 10 Stück 79.90 
Disketten-Zubehör 
Diskettenbox 15.90 


für 80-100 5"25 Disketten mit Rauchglasob 
deckung und Schloß 

Diskettenbox 16.50 
für 80-100 3*25 oder 3" Disketten mit Rauch 
glasabdeckung und Schloß 

Aus I mach 2: 
Diskettenlocher 6.95 


in Kunststoffausführung 


Diskettenlocher 9.90 


in Metallousführung 


Aufkleber tür Diskettenhüllen 

50 selbstklebende Klarsichttaschen zum 
Aufkleben auf die Diskettenhülle. Schluß mit 
der Unordnung in der Diskettenbox. 

Preis pro 50 Stück 8.90 


Reinigungsset 7.90 
für 5"25 Diskettenlaufwerke. 


RECORDER 


Datenrecorder 


für C64, C20, C128 

- mit Commodore-Anschlußkabel 
- Bandzählwerk 

- Save-Änzeige 

- Auto-Stop 


39.50 
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STAR NL 10 699.00 


- NQl-Mode 

- 120 Zeichen pro Sek. im Normalbetrieb 
- 3% Zeichen pro Sek. im NQl-Betrieb 

- voll Epson FX-kompatibel 

- biditektionaler Druck 

- Traktor und Gummiwalze 

- Einzelblatteinzug 

- Farbbandcassefte 

- einsteckbaores Interlacemodul 

- seriel, Commodoreinterface f. C64/C128 
- Parallel-Interfoce 

- !BM-Interface 

Bei Bestellung bitte Interfoce angeben 


CITIZIEN 120D 498.00 


Der preisgünstigste unter den 
Centronicsdruckern ! 

— Matrixdrucker mit 9 Nadeln 

- NLQ-Mode 

- 120 Zeichen pro Sekunde 

- 24 Zeichen pro Sekunde im NQl-Betrieb 
= Centronicschnittstelle 

- Epson FX- und IBM-kompatible Zeichensätze 
- mit Traktor und Gummiwalze 

- Einzelblatteinzug 


Drucker-Zubehör 


Wiesemann- 
Interface 92000 129.00 


Dieses Interface macht aus jedem Centro- 
nicsdrucker einen seriellen Commodore 
Drucker. 

- über 30 Druckertypen anschließbaor! 

- läuft mit jeder Commodore-Software 


Anschlußkabel 29.50 

für Userport an Centronicsdrucker 

- für Speeddos, DELA-Dos, DELA-Speed u.a 
ntronicsschniftstellen 

Einfach an Userport stecken und fertig! 

Kein weiteres Interloce mehr nötig! 


Serielles 


Druckerinterface 89.00 
für C64,C128, C16, +4 


für alle Centronicsdrucker voll Software- und 


Speeddoskompatibel 


MODEMS 


(direkt gekı it. Keine FTZ-Zulassung! Be 
trieb in Ger RD deshalb nur in ae Ne- 
benstellanlagen, die nicht an das öffentliche 
fernsprechnetz angeschlossen sind.) 


Universalmodem 
lieferbar für_Commodore-, Atari-, oder 
Computer mit RS232C-Schnittstelle 

/300, 600, 1200 BPS ICCHT V21, V231 
= 751%/ 1 20ORX, 100% 75RX (z.B. BTX) 
- Bell 103, 113,108, 


Für C64-Userport 229.00 


Für IBM 249.00 
Bei Bestellung bitte Typ angeben! 
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MONITORE 


COMMODORE 1802 


Farbmonitor 559. 
COMMODORE 1901 
Farbmonitor 798.00 


ORION- 

Farbmonitor 1480 698.00 
GRUÜNMONITOR 
mit Ton 


- 15 MHz - 12” 
- Videoanschluß 


Monitor-Zubehör 


Schwenkfuß 24.90 


für Monitore 12° 

- in allen Richtungen dreh- und feststellbar 
- frei einstellbare Neigung des Monitors 

- ideal zum Anpassen an jeden Arbeitsplatz 


Umschaltkabel 22.50 
für C128, DIN an Cinch 

Mit diesem Kabel kann man auf einem nor. 
malen Monitor im 40 und 80 Zeichen-Modus 
arbeiten 


JOYSTICK 


QUICKSHOT II 13.90 
MICRO FUN 19.90 
COMPETITIONpro 27.90 


Der fast schon legendäre Joystick 
„verschleißfreie Microschalter 
solides, formschönes Gehäuse 


MOUSES 


DELA-MAUS 99.00 


- Das Eingabemedium der Zukunft 


199.00 


- laüft überall, wo Eingabe über Joystick 
möglich ist 

- benötigt nur kleine Arbeitsfläche 

- für C64, C128 + Schneider 


DELA-Lightpen 37.90 
Bausatz 19.90 
- arbeitet mit allen lightpen- 
Malprogrammen 
- gute Auflösun 
- große Empfindlichkeit 


RAM-ROM 49.00 


Betriebserweiterung für C64 mit eigenen 
8K- in Eprommer und kein Eprom meh 
erforderlich. Einschreiben des Betriebssystem 
mit Monitorprogramm und fertig, 

RAM-ROM We in den C64 eingebaut unc 
ist mit Batterie pufferbar. 


Atari ST Eprombank 49.00 
- 128k Epromkopazität 14x272561 


- In Desktop integrierbar 
- Für Einbau in Mödulgehöuse vorgesehen 


Passendes Modulgehäuse . 


Amiga Laufwerk 448.00 


720 KB - 3"5 Disk 


tainmo. | 
- Auto Diol/Auto Answer 


=> 


(direkt gek ag Keine FTZ-Zulassung! Be 
trieb in der BRD deshalb nur in privaten Ne 
benstellanlagen, die nicht an das öffentliche 
fernsprechnetz angeschlossen sind.l 


Universalmodem 99.00 
für C64/C128 

- 300 Bau: 

- Auto dial/ Auto answer-Mode 

- CCITT V21 - mit Commodore C64/C128 


Userportanschluß 
- Terminalprogramm auf Diskette 


Freeze Frame 


Version MK 3 


129.00 


64K-RAM-FLOPPY 149.00 


= Blitzschneller Zu auf Programme 

- Geräteadresse 

- normaler load-/Save-/Open-Befehl 

- Directory 

- Editor 

= komplett mit Steuerprogramm und RAMs 

stückt 

- Betrieb am Expansionsport 

- im Gehäuse 

- läuft mit Speed-Dos und anderen 
Erweiterungen 


256K Superepromkarte 
incl Gehäuse 109.00 


- 256K Speicherkapazität 

- 8 Steckplätze für 8/ 16/32K-Eproms 

= Directory-Funktion und Modulgenerator 
= Programmstort aus Directory 

- kein Eingriff in den Rechner notwendig 
- ohne Vorkenntnisse zu betreiben 

- Präzisionssockel 


64K-Su keit 
09.30 


- für 2x32K Eproms 
= sonst. Daten wie 256K-Karte 


Epromkarte 2.1 
komplett 14.00 


leerplotine /» 
= 2x8K- oder 1x 16K-Eproms 
= um-/ und abschaltbar 
- Resetschalter 
= Präzisionssockel 


Epromkarte 4.1 
komplett 24.90 
leerplatine 9, 

= 2x8K- oder 2x 16K-Eproms 

= für 4x8K-Modulprogramme oder 

- für 4 externe Betriebssysteme 

- Resetschalter 

= um-/ und abschaltbor 

= Präzisionssockel 


Epromkarte für C128 


im 128er Mode 39. 
bis 2x 64K Epromkapazität 


Modulplati 
DELAMO 7.90 


= lserplatine für 1x8/16K-Eprom 
- 5 Betriebsarten IModul/Betriebssystem! 
= passend für Modulgehaüse 


Eprommer In. Gehäuse 149.00 
= für 2716-27256, E-Eproms, 27 CXXX 
- Programmierspannungen: 
NN? Ion 
- Schnell- und Langsamprogrammierun: 
- Textoolsockel re x 
- kein ext. Netzteil, keine Schalter 
= Modulgenerator für 8/16K-Module für 
bel. Programmzahl frei definierbares 
Startmenue 
= Auslesen, leertest, Vergleichen, Kopieren 


- Userportbetrieb 
29.50 


Aufrüstsatz 

für Eprommer Il 

Durch diese Zusatzplatine und einer speziel- 
ien Steuersoftware können Sie auch 27512 


Eproms programmieren. 
Kombi-Pack Il 189.00 


Eprommer II + 64K-Superepromkarte 


Kombi-Pack Ill 249.00 


Eprommer Il + 256K-Superepromkarte 


Preise Stand 15.4.87 


IC-Tester 134.00 


- testet fast alle TTI-IC's bis 20 Pins 
- selbständiges Erkennen der Typen 
- Dauertestfunktion 

- Software auf Diskette 

- Textoolsockel 


16K-RAM Modul 69.00 
- voll bestückt 

- 8/16K Soft-Eprom 

- ext. Betriebssystemfunktion 

- Anschluß for Akku oder Batterie 


Epromlöschgerät 115.00 
- anschlußfertig mit Gehäuse 
- 3-Minuten-Löschzeit 
Löschset 43.50 
- Selbstbauset ohne Gehäuse 

- alle Anschlußteile und Fassungen 

- Spezial UV-Röhre 

- 220 Volt Anschluf 


BETRIEBS- 
SYSTEME 


1-Afach 
Betriebssystemkarte 
- 1x16/32-Eprom 

- besonders kleine Ausführung 

- für SX64, 1541, MPS802 usw. 


lserplatine 5.00 fert.m.Scholter 2 9.90 


- absturzfrei 


leerplatine 9.00 o. Schalter 24.90 


3-fach Betriebs- 
systemkarte für C128 

- für 64er Mode 

- sn m. 3 Betriebssystemen 
- problemioser Einbau 


IserplotineÖr fertig m Schatter30,.00 


5-fach 
Betriebssystemkarte 
= 2x8K oder 2x16K-Eprom + Kernelrom 


- obsturzfrei 
o. Schalter 29.90 


leerplatine 12: 
m. Schalter 39. 


Superbetriebs- 
Systemkarte 79.00 


für Expansionsport Vollständige Betriebssys- 
temfunktionen ohne _ Einschränkungen 
Für.4 Betriebssysteme im RAM oder EPROM 
Mit Akku oder Batterie pufferbor. Keine Einstell- 
arbeiten! Nur einstecken. 


Steuern + Rogeln 

mit C64/C12 

- Steyerungssystem für Eisenbahn, Licht- 
effekt. Ar uva. 

- bis 15 Module am Userport 

- alle.Karten mit Schraubanschlüssen 

- jede Karte hat einstellb. Softworeadresse 

- frei wählbare Zusammenstell. der Karten 

- leichte Programmierung unter 
Basic/Masch. 

- Karte auch einzeln zu betreiben 

System besteht aus: 


Relaiskarte 98.00 


- 8 Relais mit je !xUlm 

- 5A Schaltleistung 

Digital- 

eingabekarte 49.00 


- 3 Kanäle mit je 8 TTl-Eingängen 
Digital- 
ausgabekarte 49.00 


- 3 Kanäle mit je 8 TTl-Ausgängen 


UN MENBEDNITER WORD 


Zubehör 


Verbindungskabel Karte-Karte 5.90 
Verbindungskobel Karte-Userport 29.50 
Programmier- 

hilfemodul 49.00 


- einfaches erstellen von Steuerungs- 
programmen 
- Abspeichern v. lauffertigen Steuerungen 


MODULE 


system 30.00 


-DOS-Beiehle auf Fosten 
- viele Sondertunktionen mit CTRl-Toster 


- 7x schneller Laden mit 1541 


Modulgenerator 


- unabhängig vom Eprommer 

- für 8/16K-Module 

- frei definierbares Einschaltmenue 
- beliebige Anzahl von Programmen 


Hardcopy-Modul 49.00 


- druckt jeden Bildschirminhalt 

- mit oder ohne Sprites 

- farbgetreue Grauabstufung 

- abspeichern von Bild u. Sprites für Weiter- 
verarbeitung mit anderen Programmen 

- für Centronicsdrucker und MPS 801 
kompatible 

- Centronicsinterface am Userport 


DELA-DOS 99.00 


Dos neve Supermodul für den Expan- 
sionsport. Für alle, die ihren Rechner und 
ihre Floppy nicht umbauen wollen. Fast 
so bei wie die Paralleisysteme. 
- 8x schneller laden 

- 8x schneller soven 

- Hordcopyfunktion für Text und Grafic über 


Be 

- DOS 5.1 -Befehle integriert 

- Flostenbelegung mit Dir, Load, Save usw 

- Rahmen und Hintergrundfarben über 
Tostatur verstellbar 

- erweiterte Cursorfunktionen 

- Centronicsschnittstelle am Userport 

Das ‚ginol iebssystem bleibt 

voll erhalten! Das bedeutet: 

- kein Verlust der Cassettenroufinen 

- kein Verlust der RS232-Schnittstelle 


Steckplatz- 

erweiterung 99.00 
Bausatz 69.00 

- vier Steckplätze 


- über Tastatur umzuscholten 
- Reset-Taster 
- alle wichtigen Signale geschaltet 


splay 29.50 
- LED-Anzeige der Userportsignole 
— Durchgeschliffener Userport. Karte kann 
zwischen Userport und jedes Gerät 
jeschaltet werden. 
- Signale PBO-PB7, PA2, Aag2 
werden angezeigt 
- Ausführl. Anleitung m. Demo-Progrommen 


29.90 


3-fach Userport- 
35.00 
—n Bausctz 30.00 


- kein Umstecken am Userport mehr 2 

- Centronicsschnittstelle bleibt durch ein- 
gebaute Elektronik in Betrieb 

- wenig Platzbedarf 12 Stecker senkrecht! 


set 11.90 


Für alle, die noch keinen Resettaster haben, 
unbedingt erforderlich. Funktioniert auch am 
54 


CPM-Modul 169.00 
einen Z80- 


Machen Sie aus Ihrem C64 
Rechner. Das Modul ist voll CPM-fähig. 
- eigener Z-80-Prozessor 

- ZNHz Taktfrequenz 

- C64-CPM uneingeschränkt lauffähig 

- arbeitet mit Speed-DOS etc. 


- mit Gehäuse 


80-Zeichenkarte 169.00 


Einfach aufstecken und Sie haben sofort 

80-Zeichen auf dem Bildschirm 

- voll kompatibel zu BASIC und CPM 

- softwaremäßige Umschaltung zwischen 
40- und 80-Zeichendorstellun 

- zwei Zeichensätze im Lieferum! ang 

- zwei weitere Zeichensätze nachrüstbar 

- frei verschiebbarer Bildschirmspeicher 
Deshalb Anpassung an andere 
Maschinenprogramme möglich 


Expansionsport- 


adapter 29.50 


zum gleichzeitigen Betrieb der 80 Zeichen- 
karte und CPM- Modul 


DELA SPEED 149.00 


Die Erweiterung für alle, die schon 
SPEEDDOS o.ähnl. Parallelübertrager 
besitzen. 


ne mit BK-Pufler 


ca 4x schneller saven 

Superbetriebssystem mit vielen Zusatzfunktio- 
nen 

Parallelset 

Für alle, die keine Parallelübertragung 
besitzen 

- Verbindungskabel 154 1-Userport 

- ROM-Adapter für 

- Diskette m. Peeeeren für Cö4 


Damit können Sie DELA-SPEED auch ohne 
fremde Parallelübertroger benutzen. 


DELA SPEED + 
Parallelset kompl. 189.00 


Gehäuse f. Eprommer Il 
und 256K-Karte je 19.50 


Winkelodopterplatine 
lochrasterkarte UP/Ex-Port 
lochrosterk. für Ex-Port 
Lochrasterk. für Userport 
Modulgehöuse 
Userport-Resettaster 
Userportstecker 

Gehäuse hierfür 
Modulportstecker 
Kühlventilator 220 Volt 
Verb.-kabel Userp.-Centronic 


ers: ..2000 


- mit 40 Pol. IC-Sockel f. 1541 
- mit durchgeführten Userport 
- Centronics-Schnittstelle bleibt in Betriebll! 


C16/C116 


Für C16-Fans 
Speichererweiterung 
auf 6AK isteckmodul! 59.00 


Lochraster- 
Experimentierplatte 13.90 


Ba 
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Bauen Sie Ihre eigenen 
icerweiterungen oder 
Betriebssysteme 


Befehls- und 
Speichererweiterung 69.00 


Spezialmodulzur Aufnahmeeines32K-Eproms 
für eigene ar) und Befehlserweiterungen 
Zusätzliches BK-RAM 

- kein Speicherbedart i im Rechner 
- a Fanien mit anderen 

Iserw veiterungen 

- Betriebssystem zur Erstellu una eigener 

Befehlserweiterungen auf Diskette 
- Viele Hilfsfunktionen zum Einbauen 


Kernelgenerator 69.00 


Mit dem Kemelgenerator können Sie Ihre 
eigenen Betriebssystemefürden Cö4 erstellen 
Folgende Funktionen können aus dem 
Modul ai ande werden: 

- DOS5. hie 
=  E 
- =:Beschaltmeldun g anden 

Oppyspeeger 
- Old 


- Cursorsteuerungen 

- Viele neue Basicbefehle 
Natürlich können Sie auch Ihre eigenen 
Programme einbauen 


Abdeckhauben aus PVC 


NO C Bi yo isch — Stoßfest 
Atari 520 ST, Atari 10 € IBM PC-XT] 


Care 


e 


DELA-PRINTER MP/I/180 


Dernneue Standard bei Matrixdruckern 
180 Zeichen pro Sekunde 


Grafikfähig 


7K Buffer (Option 15K) 


11 nationale Zeichensätze 
2 Speicher für eigene 


Zeichensätze 


Epson/lBMkompatibel 


Traktor und Gummiwalze 

9x9 Punkte Datenausdruck 

18x20 Punkte Korrespondenzdruck 
8x1920 Punkte im Grafikmodi 


Deutsches Handbuch 
Schnittstelle CentronicsParallel 


eignet für alle Computer mit 
Feen sschruelel Wird von 
fast allen Programmen unterstützt, 
da voll Epsonkompatibel 


8 Kanal 
ik-Analisator 139.00 


- 8 Dotenkanäle auf dem Bildschirm 
dorstelibar 
- Max. Auflösung 8MHz 

interner oder externer Takt wählbar 

Z8K Datenpuffer 

- Meßz über Rechner oder ext. Trigger 

steue 

- Meergebrisse auf Disk- oder Drucker 
auszugel 

- komforabie. Steuersoftware 


Siehe auch Test Happy/Run 4/87 


Wir suchen 
Verkäufer + Filialleiter 
für unsere Filiale München 


Haben Se eigene Han 

oder/und Schware 
ecomputer a 

kelt? 

nt eigen Lösungen 
men wir bei Umsatz- 

Bereligung in unser Ver- 

kaufsprogramm auf. 


WUWKHESONFTER WORD SON, 


Ab sofort 
können Sie 


LBOX 


MAI 
0221/514450 


TELEFON 


Porssialar uns über 
300 bd 7/E/1 
Togisch 24 5. gesine 
Angebon, Prise und‘ 


0221/517081 
ken 4 


Bean Ta 
ee 


TELETEX 
2214248 DELA 
erreichen! 


eci 
0221/517084 


Iher konnen See und 
Nacht Ihre 


Nachnahmeversand NN-: 7.50 DM b. Vorkasse 4.- DM. Auslandsbestelli 
gegen yr +15.- a an Wir liefern o au Ihre Rechnung und Gelahr zu de 
aufs- und Lieferbedingungen des Elektronikgewerbes 


® Fordern Sie unseren kostenlosen, farbigen Katalog schriftlich an! @ 


BEN u VERSAND 


Viele weitere, interessante Angebote 
zu aktuellen Tiefstpreisen finden Sie 
in unseren Filialen (Ladenverkauf) 


Köln I Maastricher Straße 23 | 
Essen Schützenbahn 11-13 | 


München 22 Bürklein Str.10 
Händleranfragen erwünscht! 


Vertrieb Holland: GIMA-Printservice, Tel. 077/870937, Pb, 186-5900 AD-Venlo 


ieb Belgien: Software-Service, Di Era 133/8, 3000 Leuven 
ä ‚arde 24, 40 Nibe 
"sheinhacner Straße 44 Tel. 042/413926 
eb Os "Wallganse 39/9, 2.1 088 Wien 11 0222/58524 


ch u san, 
Vertrieb alien: a Lorenzo i Magnifico 148, 100162 Roma, Tel.6/427041 


Siehe auch Test in der 64’er 4/87 Seite 138 


Epson/IBM-kompatibel 698.00 - Commodore-kompatibel 759.00 


viGeltnema 


Sechs 
IVlonıtore 
MIG 
Durchblick 


Thompson 31902 VA 
Monocehrom Amber 


Technische Daten 


Bildröhre: 14 Zoll, In-line-Schlitzmasken- 
röhre, Schlitzabstand 0,42 mm 
Ablenkung: 90 Grad 


Monitor-Eingangss. 

bei Cinch-Buchse: Zusammengesetztes Videosignal 
mit negativer Synchronisation, 
Audiosignal 

Monitoreingänge Euro-Anschluß: RGB linear 

für RGB-Signale: Audiosignal: RGB TTL 


Auflösung: 600 Zeilen in Bildmitte, RGB 
Bildröhre: 3lcm Zeichen: über 2000 Zeichen (80 x 25), RGB 
Videobandbreite: 35 MHz Bildfrequenz: 50/60 Hz 


Auflösung: ca. 1000 Zeilen (Mitte) 
Zeilenfrequenz: 15 725 Hz 


Zeilenfrequenz: 15 625 Hz 
Ausgangsleistung: 1 Watt 


Audioeingang: 1 Watt Anschlüsse: über SCART oder TTL 
Anschlüsse: Cinch Preis: ca. 900 Mark 
Preis: ca. 250 Mark Marta 


Nebeneinander dargestellte Farbbereiche sind 
bei Betrieb mit einem C64 klar getrennt. Im 
Grün-Modus sind die Zeichen sehr gut zu erken- 
nen. Im Gegensatz zu anderen Monitoren blei- 
ben Nebeneffekte wie Schlieren, Verzerrungen 
und Schatten weg. Das Gleiche gilt für den 80- 
Zeichen-Modus. Zeichenfolgen wie B8 und NMH 
sind sehr gut zu unterscheiden. 


Nachteile 

Im Interlace-Modus des Amiga flackert der Bild- 
schirm. Der Monitor ist nicht entspiegelt. 
Beurteilung 


Der Amiga-Monitor 1081 ist ein Allround-Gerät 
mit herausragenden Eigenschaften. Er ist der 
ideale Monitor für den Betrieb mit dem Amiga. 


Vorteile 


Hier zeigt sich der Monochrom-Monitor von sei- 
ner starken Seite. Sowohl 40 als auch 80 Zeichen 
pro Zeile stellt der Thompson 3102 VA klar und 
deutlich dar. 


Nachteile 
Farben können nur als Graustufen wiedergege- 
ben werden. Im Interlace-Modus des Amiga tritt 
starkes Flackern auf. 


Fazit | 
Wer Wert auf klare und deutliche Textdarstel- 
lung legt und auf Farben verzichten möchte, ist 
mit diesem Monitor gut bedient. 
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Slipstream KF510/90B 


Bildröhre: 


Ablenkung: 
Auflösung: 
Zeichen: 
Bildfrequenz: 
Zeilenfrequenz: 
Ton-Ausgangs- 
leistung: 
Eingangssignale: 


Anschlüsse: 


Besonderheiten: 
Preis: 


Vorteile 


36 cm, In-line-Schlitzmasken- 
röhre, Schlitzabstand 0,65 mm 
90 Grad 

300 Zeilen in Bildmitte 

>1000 Zeichen (40 x 25) 
50/60 Hz 

15 625 Hz 


1 Watt 
Zusammengesetztes Video- 


signal mit negativer Synchroni- 


sation, Audiosignal 
C64 und C128 mit Spoligem 
DIN-Anschluß, Verbindungs- 
kabel: (AV7101), Computer mit 
Cinch-Anschluß (AV7103), 
Computer mit Euro-Anschluß 
(SBC1054) 
Grün-Darstellung 

ca. 500 Mark 


Grafiken werden in guter Qualität wiedergege- 
ben. Die Farben sind kontrastreich und gut zu 
unterscheiden. Bei der 40-Zeichen-Darstellung 
sind die Zeichen gut lesbar. Im Grün-Modus 
zeigt der Monitor ein sauberes Bild. 

Nachteile 

Der Monitor ist für 80-Zeichen-Darstellung nicht 
brauchbar. 

Beurteilung 

Für den C64 ist der Slipstream KF510/00B Color 
gut geeignet. 
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Commodore 1802 Color 


Technische Daten 

Bildschirmgröße: 33cm 

Ablenkung: 90 Grad 

Audioausgang: 1,2 Watt 

Videobandbreite: 4,5 MHz 

Anschlüsse: Composite-Video (FBAS für 
Videorecorder und 
Fernsehtuner) 
Chrominanz/Luminanz mono- 
chrome grün auf schwarz 
Audioeingang über Cinch 

Preis: ca. 500 Mark 


Vorteile 

Mit der Schlitzmasken-Bildröhre bietet der 1802 
ein sehr gutes Bild. 40 Zeichen pro Zeile stellt er 
ohne Probleme dar. Die Farben sind kontrast- 
reich und klar voneinander getrennt. 


Nachteile 

Bei 80 Zeichen pro Zeile ist es fast unmöglich, auf 
dem Bildschirm Zeichenfolgen zu unterschei- 
den. Schließt man den Amiga an den 1802 an, 
müssen Qualitätsverluste, besonders bei hoch- 
auflösender Grafik, in Kauf genommen werden. 


Beurteilung 
Der Monitor ist ausschließlich für den Anschluß 
an den C64 gedacht. 


Endlich... 


„50, jetzt hab’ ich endlich über 
900,- Mark zusammen.“ 


> Wofi ür?“ 


Frick 


„Für meinen Computer -mit64KB „= 
und Floppy.“ 


Dr Rn 
mn „Waaas? 64 KB, das reicht Dir? 

- Phh - Mensch, für nur 998,- Mark 
kriegst Dueinen richtigen Computer mit 512 KB. 
Das ist das Achtfache an Speicherleistung. 
Ein echter 16/32-bit Computer. Mit hoher 
Arbeitsgeschwindigkeit, bestechender Grafik, 
allen Schnittstellen, Fernsehanschluß 
und mit einer 500 KB-Floppy.“ 


ei 

BT Tara 

— 
„Wo gibt’s denn das?!“ 
>. 
—— 

== „Na, bei ATARI- der ATARI 520 STM.“ 
> 


„Wie gut, daß ich ’ne kluge Schwester 
hab’. Ich hätt’ doch glatt den Falschen 
gekauft, ich Idi.“ 

m 


le 


on Sag’ ich doch.“ 


ad ER A a a a a au 
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PUBLIKATIONEN 


Ihre starke Verbindung zur Computerwelt 
Rheinstraße 28, 8000 München 40 
Telefon 360860 


RU 
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nrun Run run Run Run Run Rı 


Run 
un run Run run Run Rungai 


Run 
nn Run Run Run Runrun Run Ri 
ıRUNn Run Run Run Run Run RI 


Sie alle lesen 
RUN regelmäßig. 


RUN-Leser verlieren nie ihr Gesicht. Denn RUN 
bietet Computer Know-how vom Besten. Monat 
für Monat brandaktuell. Neueste Informationen 
aus der ganzen Welt. Hauptthemen: C64, 128 
und Amiga. Anspruchsvolle Listings, Tips und 
Tricks für's Programmieren, Tests und Kauf- 
empfehlungen — auch für Hardware. Jeden 
Monat neu. 


RUN regelmäßig lesen, heißt Profil gewinnen. 
Und 12 Monate im Jahr top-informiert sein. 


Also: Gleich nebenstehende Abokarte ausfüllen 
und heute noch absenden! 


Im Abo 
mit rund 


Preisvorteil und 
zuverlässig frei Haus 
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Electronic von A—Z, HDS-Prüftechnik GmbH, 
Landolt 


Was gibt's wo? Ss. 90—92 
AB-Computer, CSJ-Computer Soft, Computer 
World, HD, Haarmann, HiBit, Hofstede, IDEE-Soft 
I. Dinkler, Ingenieurbüro f. Inform., KA-Soft, 
Kuehn, Mak Jukic, Personality Computer, Print 
Technik, Riegert, Schißlbauer, Scheiba, Schau- 
ties, Terra impex, Zilie. 


board- 


Gebrauchs- 
Anweisung 


l. Anzeigentext in die vorgedruckten 
Zeilen der Karte schreiben — 
maximal 6 Zeilen mit Anschrift 
oder Telefon-Nummer (pro Buch- 
stabe, Satzzeichen, Wortzwi- 
schenraum = 1 Kästchen). 

2. Rubrik, Bereich und Zahlungswei- 
se ankreuzen, Adresse auf der 
Rückseite der Karte angeben. 

3. Datum und Unterschrift nicht ver- 
gessen 

4. Karte zusammen mit 5-DM-Schein 
oder V-Scheck über DM 5,— in 
Umschlag stecken. 

5. Umschlag zukleben, ausreichend 
frankieren und abschicken an: 
CW-Publikationen 
— RUNboard — 

Postfach 40 04 29 
8000 München 40 

6. Die Anzeige erscheint im nächst- 

möglichen RUNboard. 


Ich habe die Gele- 
genheit genutzt! 


gm 


ich habetam 2: — ZPuWEEE 
Gelegenheits-Anzeige im RUN- 
board bestellt. Sechs Zeilen zum 
Taschengeld-Tarif von nur DM 5,— 
inkl. ges. Mehrwertsteuer. Die DM 5,— 
habe ich der Bestellung beigelegt als 


© V-Scheck oO Geldschein 


QUD-.. 


gmo 


Ichhabe am beider 


RUN-o-thek Diskette(n) 
mit den Programmen aus RUN- 


Ausgabe_________bestellt. 
Preis pro Diskette: DM 21,80 plus 
DM 3,— Versandkosten = DM 24,80 


© BezahltmitV-Scheck-N._____ 
Konto-Nummer 
BLZ/Geldinstitut 

O Ich bezahle per Nachnahme. 


eine 
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Thompson 36632 VPR 
€olor 


SCART-RGB 


m. 


Video 


Audio 


Technische Daten 


Bildröhre: 36 cm 

Videobandbreite: 4,5 MHz (PAL); 12 MHz (RGB) 

Eingangssignal: Video, RGB 

Zeichen-Anzahl: PAL — 40 Zeichen x 25 Zeilen 
(1000 Zeichen), RGB — 40 Zeichen 
x 25 Zeilen (1000 Zeichen) 

Auflösung: PAL — 260x300 Punkte, RGB — 
320x200 Punkte 

Zeilenfrequenz: 18,7 MHz 

Rasterfrequenz: 50/60 Hz 

Audio-Ausgang: 0,85 Watt 

Anschlüsse: SCART-, Audio- und Videoein- 
gang 

Preis: ca. 500 Mark 


Vorteile 
Bei 40-Zeichen-Darstellung ist die Wiedergabe- 
qualität sehr gut. 


Nachteile 


Am Bildschirmrand treten Verzerrungen auf. 
Der Monitor ist für 80-Zeichen-Darstellungen 
nicht geeignet, da die Zeichen verschmieren 
und der Bildschirm flackert. 


Beurteilung 
Für C64-Fans ist der Thompson 36632 VPR Color 
empfehlenswert. Die Tonwiedergabe ist klar. 
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Philips BM 7522/9006 


Technische Daten: 

Bildröhre: 12 Zoll, hochauflösende Bildröhre 
mit reflexfreiem Bildschirm 

Ablenkung: 90 Grad 

Leuchtstoff: grün 

Video-Bandbreite: 20 MHz 

Audio-Eingang: Cinch 

Video-Eingang: Cinch 

Bildzeichen: 2000 Zeichen (80 Zeichen x 25 
Zeilen) 

Auflösung: >850 Zeichen im Zentrum 

Zeilenfrequenz: 15 625 Hz + 600 Hz 

Rasterfrequenz: 50/60 Hz 

Tonausgangs- 

leistung: 0,3 Watt 


Preis: ca. 200 Mark 


Vorteile 
Bei der 40-Zeichen-pro-Zeile-Darstellung ergibt 
sich ein brauchbares Bild. Im Interlace-Modus 
des Amiga ist er in der Darstellung wesentlich 
ruhiger als andere Monitore. 


Nachteile 
Im 80-Zeichen-Modus schmerzten schon nach 
wenigen Minuten die Augen. Beim Amiga flim- 
mert es stark und die Zeichendarstellung ist sehr 
grob. 


Beurteilung 
Der Philips BM 7522/00G ist für Textverarbei- 
tung nicht geeignet, dafür für den Einsatz als 
Grafikbildschirm. 
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-Nadeldrucker SP-180 
M Druckgeschwindigkeit: EDV-Druck 
100 cps, NLQ 20 cps 
mM EPSON®FX kompatibel: SP-180 A 
M Commodore? 064/C128 
kompatibel: SP-180 VC 
M Inclusive Traktor 


9-Nadeldrucker SP-1200 
M Druckgeschwindigkeit: EDV-Druck 
120 cps, NLQ 25 cpS 
B EPSON®FX und IBM*-Grafikdrucker Il 
kompatibel: SP-1200 Al 
M Commodore? C64/C128 
= 
[4 


kompatibel: SP-1200 VC 
Einzelblattschacht als Option 
Inclusive Traktor 


24-Nadeldrucker SL-80 Al 

M Druckgeschwindigkeit: Letter Quality 
54 cps, EDV-Druck 135 cps 

M EPSON?LO 1500 und IBM®- 
Grafikdrucker Il kompatibel 

M Einzelblattschacht als Option 

M Inclusive Traktor 


IBM ist ein eingetragenes Warenzeichen 

der International Business Machines Corporation 
EPSON ist ein eingetragenes Warenzeichen 

der SEIKO-EPSON Corporation 

COMMODORE ist ein eingetragenes Warenzeichen 
der COMMODORE Corporation 


SEIKOSHA (EUROPE) GMBH - Bramfelder Chaussee 105 - 2000 Hamburg 71 
Telefon 040/64 60 02-0 - Telex 211 331 seik d - Telefax 040/64 60 02:29 


* Unverbindliche 
Preisempfehlung 
ohne Einzelblattschacht 


Bere Informationen: SASS Computer- Multiprint In Österreich: In der Schweiz: 

ihhandel MIKADO GmbH GUSSOW GmbH Vertriebs GmbH Info Process GmbH Comp.-Peripherie GmbH _ AKTIV GmbH ERNI-COMPRO AG 
sandhandel Wielandstr. 13 Stolper-Str. 2a Nordstr. 71-73 Gewerbestr. 4 Industriestr, 12 Scheydgasse 31 Fabrikweg 2 

häuser 1000 Berlin 12 2000 er 73 6450 Hanaui 7801 Buchenbach 8034 Germering A-1210 Wien CH-8306 Bruttisellen, Zürich 
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Nardwar® 


Jeder Anwender soll sich den Amiga selbst nach sei- 
nen speziellen Anforderungen zusammenstellen 
können (die momentan zur Verfügung stehenden 
Einzelkomponenten sind in Tabelle | aufgeführt). Die 
Grundausstattung des A2000 wurde von Commodo- 
re bewußt spärlich gehalten. Die von uns getestete 
Systemkonfiguration setzt sich aus dem Grundgerät 
(Amiga mit einem 3%- Zoll-Laufwerk), Monitor 1081, 
PC/XT-Erweiterungskarte + 5%4-Zoll Laufwerk, 
RAM-Erweiterung und 20-MB-Harddisk mit Control- 
ler zusammen. (Listenpreis dieses Systems 8070 
Mark, Stand 5. März 87). 

Kennzeichen für den A2000 ist OSA (Open System 
Architecture). Hinter dieser Bezeichnung verbergen 
sich erstaunliche Möglichkeiten. Neben den Fähig- 
keiten des „normalen“ Amiga stehen dem Änwen- 
der über Erweiterungskarten durch ein ausgeklü- 
geltes Bus-System die PC/XT-, AT- und UNIX-Welt 


offen. Alle gängigen PC/XT- und AT-Steckkarten 
können neben speziellen Amiga-Erweiterungen ver- 
wendet werden. 

In der Grundausstattung verfügt der A2000 über 1,25 
MB RAM. Davon werden 256 KB für Kickstart 1.2 ver- 
wendet, 1 MB wird als Arbeitsspeicher genutzt. In- 
tern ist der Arbeitsspeicher auf 95 MB RAM aufrüst- 
bar, wobei sich das System automatisch konfiguriert. 
Da Kickstart 1.2 als ROM integriert ist, können Pro- 
gramme, die niedrigere Versionen benötigen, nicht 
weiter verwendet werden. Alle Programme, die 
schon für den Al000 auf Kickstart 1.2 basierten, sind 
ohne Einschränkung lauffähig. 


Integriertes Kickstart 


Auf der Mutterplatine des A2000 ist eine akkugepuf- 
ferte Hardwareuhr untergebracht. Sie wird nur vom 
Amiga angesprochen und von der PC/XT-Erweite- 
rung nicht genutzt. Gegenüber dem Al000 wurde 
das Netzteil erheblich verstärkt, damit alle Erweite- 
rungen mit der nötigen Betriebsspannung versorgt 
werden können. 

Schwachpunkt des Amiga 2000 ist noch die mangeln- 
de Dokumentation. Laut Auskunft von Commodore 
wird zur Zeit an einer ausführlichen Version der 
Handbücher gearbeitet. Unvollständig ist die jetzige 
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Commodores 
neues Flaggschiff 


Kein Wunsch bleibt beim neuen Ami- 
ga 2000 offen. Die Leistungsmerkma- 
le des A1000 plus PC/XT- und AT- 
Kompatibilität, gepaart mit schier un- 
begrenztem Ausbau- und Erweite- 
rungsmöglichkeiten kennzeichnen 
diesen Computer. 


Doppelbock“ Amiga 2000. 


Version der Systemsoftware. Das Installieren von Er- 
weiterungen wird so fast unmöglich gemacht. Eine 
neue Version der Software wird noch etwas auf sich 
warten lassen, da sich die Programmierer von Com- 
modore hohe Ziele gesetzt haben. So soll mit der 
endgültigen Version die Installation von Erweiterun- 
gen narrensicher per Menüwahl (Icon-Anwahl) erfol- 
gen können, ohne daß eigene Programmierarbeit 
geleistet werden muß. Probleme gibt es mit der jetzi- 
gen Version der Systemsoftware beim Ansprechen 
von Druckern sowohl vom Amiga als auch von der 
PC-Erweiterung. 


Licht und Schatten 


I  e  j RT 
ER en, 2 FED 


ni 


Auf der mitgelieferten Workbench-Diskette wurden 
aus Platzgründen einige auf früheren Versionen 
noch vorhandene Druckertreiber für den Amiga kur- 
zerhand weggelassen. Der für die PC-Erweiterung 
erforderliche Treiber „LPT1* ist ebenfalls nur un- 
vollständig vorhanden. Bei unserem Testbetrieb 
(über den Parallel-Port) traten zweierlei Schwierig- 
keiten auf. Zum einen stimmt die Handshaking-Ein- 
stellung nicht, was zu Textverwürfelungen führt. Zum 
anderen können Drucker, die auf ein Resetsignal 


Die Anschlüsse entsprechen PC-Standard 


vom Computer warten, nicht angesprochen werden. 
In einer neuen Treiber-Version soll dies berücksich- 
tigt werden. (Tips und Tricks sowie einige hilfreiche 
Systemroutinen finden Sie in unserer Mitte Mai er- 
scheinenden Schwester-Zeitschrift „ Amiga Welt“.) 
Die PC/XT-Karte ist mit einer 8088-CPU (Taktfre- 
auenz 4,77 MHz) und 256 KB RAM (auf 512 KB RAM 
aufrüstbar) ausgestattet und nutzt das automatische 
Konfigurieren des Amiga. Auf der Karte wird die 
Emulation durch drei spezielle Custom-Chips (PC- 
Custom-Chip, ABT und DBT) erreicht. 
PC-CUSTOM-CHIP: 

Clock & Timing Generation 

Counter Timer Controller 

Dynamic Memory Access Logic 

Interrupt Controller Logic 

Keyboard Interface 


WW MONTE ER WERD SEN, 


ABT (Address Bus Translator): 
PC-Amiga Arbitration 

PC /O & Memory Interface 

Amiga Register & Memory Interface 
PC & Amiga Interrupt Logic 
Keyboard Interface 


DBT (Data Bus Translator): 
Auto Configuration 
Data Bit Shifter for Byte, Word and Graphfic access. 


Die Inter-System-Kommunikation erfolgt über ein 64- 
KB-Dual-Port-RAM als Inter-Prozeß-Buffer und einem 
64-KB-Dual-Scratch-Memory auf Amiga-Seite. 

Nach der RAM-Aufrüstung auf 512 KB traten bei al- 
len von der Redaktion getesteten PC-Software-Pake- 
ten keinerlei Kompatibilitätsprobleme auf. Einwand- 
freies Arbeiten mit der (für Amiga und PC partitio- 
nierten) Festplatte war ebenfalls gewährleistet. 
Negativ ist im Testbetrieb die relativ lange Zeitspan- 
ne des Boot-Vorgangs aufgefallen. Diese ist aller- 
dings systembedingt und erklärt sich wie folgt. Beim 
Einschalten des A2000 werden PC-Erweiterung und 


Amiga A2000 2995 Mark 
Amiga A2000 + Monitor 1081 3985 Mark 
Monitor 1081 995 Mark 
3Y%"-Laufwerk intern 399Mark 
PC-/XT-Karte + 5%-Laufw. 1395 Mark 
AT-Karte + 5% Laufw. 1995 Mark 
2MBRAM-Erweiterung 995 Mark 
20 MB Harddisk + Controler 1695 Mark 
PAL-Video-Karte 249Mark 
3Y%"-Laufw. 1010 (extern) 499 Mark 


Tabelle 1. Einzelkomponenten des Amiga 2000 und deren 
Preise. (Stand März 87) 


Amiga gleichzeitig gebootet und die Festplatte läuft 
an. Würden jetzt PC und Amiga gleichzeitig auf die 
Platte zugreifen, hätte dies unweigerlich einen 
Systemabsturz zur Folge. Um dies zu vermeiden, ist 
in der Bootroutine für den Amiga eine Warteschleife 
von 40 Sekunden eingefügt, die dem PC Gelegenheit 
zum Booten gibt. Die 40 Sekunden Wartezeit sind so 
knapp bemessen, daß schon eine minimale Verkür- 
zung der Amiga-Boot-Routine vor der Warteschleife 
zur Kollision beider Systeme und zum Rechnerab- 
sturz führt. Der gesamte Bootvorgang dauert bei un- 
serer Gerätekonfiguration 123,61 Sekunden. Insge- 
samt ist der große Amiga ein (Zwei-)Tausendsassa, 
ein Computer der unbegrenzten Möglichkeiten aus 
deutschen Landen. Die vielfältigen Erweiterungs- 
und Ausbaumöglichkeiten machen ihn zu einer Inve- 
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Hardware 


Amiga-Steckplätze 


Harddisk 
Controller 
PC-Steckplätze 20MB-Festplatte 
3% Zoll-Laufwerk 
PC-Platine 
En a a nl 
ER = 5% Zoll-Laufwerk 
RAM-Erweiterung 
Viel Platz für Erweiterungen im Amiga 2000. 
Amiga-Grundgerät: Grafik- und Zeichentrick-Chip „Agnus": 
CPU: Motorola 68000, 16/32 Bit — Hochgeschwindigkeits-Datentransfer 
Taktfrequenz: 7,14 Mhz — schnelles Linien-Zeichnen und Flächen-Füllen 
3 Co-Prozessoren für DMA, Video, Grafik und Sound (60 Bilder Pro Sekunde) 
(Agnus, Denise, Paula) Copper/Coprozessor 
Video-Display: 625 Zeilen vertikal, Frequenz 50 Hz, — mit Bildschirm synchronisiert 
Videospeicher maximal 512 KByte — versorgt die Register von Ägnus, Paula und 
1 MByte RAM Denise 
256 KByte ROM für Kickstart — kontrolliert 25 DMA-Kanäle 
7 System-Steckplätze 
1 Video-Steckplatz Video-Chip „Denise": 
— Grafik-Modi von 320x256 bis 640x512 
PC-/XT-Erweiterung — Farben: 32 bei 320 Spalten 
CPU: 8088-Prozessor 16 bei 640 Spalten 
Taktfrequenz: 4,77 MHz 4096 Farbtöne 
512 KByte RAM — Textmodus: 60 oder 80 Zeichen, 25 Zeichen 
16 KByte BIOS-ROM — Sprite-Controller 
System-Software: MS-DOS 3.2 
Port-Chip „Paula*: 
AT-Erweiterung — DMA-Steuerung 
CPU: 80286-Prozessor — V/O-Steuerung 
Taktfrequenz: 8 MHz Serielle Schnittstelle 
512 KByte RAM Parallele Schnittstelle 
16 KByte BIOS-ROM Control-Ports 
Systemsoftware: MS-DOS 3.2 Tastatur 
Audio Ein/Ausgabe 


Tabelle 2. Technische Daten 
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Wer seinen Personal Computer 
professionell nutzen will, sollte 
die Leistung des Rechners nicht 
blindlings vergeuden: Integra- 
tion statt Insellösung! Und so 
wird’s gemacht: 


rungskräfte 

ist ein Leitfaden 
zum wirtschaftli- % 
chen Einsatz von * 
Mikros in Produk- 
ten und Verfahren. 


Bestell-Nr.: CW M19-2, Preis: DM 111,- 


EDV-Wissen 
für Anwen- 
der ist der 
Klassiker 
für die 
Fachabteilung 
und Einsteiger. Hier 
lernt man die Anforderungen an die 
EDV zu formulieren. 


Bestell-Nr.: CW 56-7, Preis: DM 88,— 


Software- 
Enginee- 

ring in der 
Praxis. Das 
Bertelsmann /f 
Modell: Auch 
wer für Mikros 
oder PC Program- 
me schreibt, braucht die Disziplin des 
Software-Engineers. 


Bestell-Nr.: CW B09-5, Preis: DM 118, - 


Ich bestelle ___ Ex. Mikro-Elektronik für Führungskräfte 
— Ex. EDV-Wissen für Anwender 
_ Ex. Software-Engineering in der Praxis 
Lieferanschrift (zugleich Rechnungsanschrift*) 


Name Vomame 

x bar K 
Straße VE 
PLZ Ort R Unterschrift ua, Ip, 


*Bestellungen aus dem Ausland werden nur gegen 
Vorauskasse erledigt 


CW-Edition, Rheinstraße 28, 8000 München 40 
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Bild. 


Bildröhre: 


Audio: 


Maße (BxHxT): 


SANYO 


INDUSTRIE-VIDEO 
DATENMONITORE 


SANYO VIDEO 
VERTRIEB GMBH + CO. 


Kornkamp 4 

D-2070 Ahrensburg 
Tel. 04102/4901-0 
Telex 2189875 svce d 
Telefax 04102/490138 


ee 
ne 
Einer für alle 


SANYO hat ihn, den Multi-User-Monitor. 

Sie haben einen Commodore, Atari oder IBM? 
Gleichgültig, welchen Computer Sie besitzen, 
der neue SANYO DMC-1480-Monitor verarbei- 
tet alle Signale zu einem gestochen scharfen 


Sie wollen BTX nutzen? 

Das RGB-Analog-Signal und die Standard- 
SCART-Buchse stehen Ihnen zur Verfügung. 
Formschönes Design mit integriertem 
Schwenk-/Neigefuß. Damit ist die 36 cm 
Hochkontrast-Bildröhre in jede gewünschte 
Blickrichtung zu bringen. 

Alle Bedienungselemente und der Lautsprecher 
sind an der Frontseite eingebaut. 
Multi-User-Monitor DMC 1480. 


Ein SANYO für alle. 
Technische Daten: 


1. Eingangssignal: PAL-Composite (Cinch) 
2. Eingangssignal: Chrominanz/Luminanz- 


9. Eingangssignal: RGB-Analog (21-Pin) 
4. Eingangssignal: RGB (I)-TTL (8-Pin) 


36 cm/14”, Hochkontrast, 
0,52 mm dot pitch 


schaltbar (Cinch) 


Eingebauter, regelbarer 
Lautsprecher (Cinch) 
362 x 340x385 mm 


Unverbindliche 
Preisempfehlung 


Ei- 
niges 
aus dem 
Lieferpro- 
gramm: Da- 
tenmonitore, 
Chassis (mono- 
chrom und Far- 
be). Composite Vi- 
deo, RGB-TTL, RGB- 
Analog unter anderem 
für CAD/CAM Bereiche. 
Videoüberwachungsanla- 
gen und Kameras, CCD- 
Kameras , Monitore, Objek- 
tive, diverse Schutzgehäuse 
und reichh. Angebot an Zubehör. 
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Schreiben und lesen mit 8facher Ge- 
schwindigkeit — „Parallel Filecopy“ 
macht's möglich. An Hardware wird 
lediglich ein Parallelkabel benötigt, 
das im Selbstbau billig machbar ist. 


Beim Laden des Files werden zuerst mit Hilfe des 
OPEN-Befehls das File zum Lesen geöffnet, dann ein 
Maschinenprogramm in den Floppyspeicher über- 
tragen und schließlich die einzelnen Programmblök- 
ke gelesen und in den Computer übertragen. Dabei 
werden die Zeiger auf den nächsten Block am An- 
fang jedes Blocks mit übertragen. Vor dem Speichern 
wird mittels OPEN/Befehl das File zum Schreiben 
geöffnet, dann wird die aktuelle BAM (Blockbele- 
gung) der Diskette in den Computer übertragen, die 
von dem Programm benötigten Blöcke belegt, die 
Zeiger auf den jeweils nächsten Programmblock neu 
gesetzt und das Programm schließlich auf die Disket- 
te geschrieben, was ebenfalls mit Hilfe eines Maschi- 
nenprogramms in der Floppy geschieht. Am Ende 
des Speichervorganges wird die neu belegte BAM 
geschrieben. Das Programm selbst steht von $0900 
bis $1900 im Speicher, der Speicherbereich von 
$0800—$0900 wird als Zwischenspeicher für die 
BAM (Track 18, Sektor 0) genutzt. Die gewählten Pro- 
gramme stehen ab $1900 im Speicher. 


Das Parallelkabel (Belegung, Einbau): 

Wer über einen Floppyspeeder mit Parallelkabel 
verfügt, kann sich den Kabelselbstbau sparen. Das 
Kopierprogramm arbeitet problemlos mit Speed- 
DOS und ähnlichen Speedern. 

Das Parallelkabel besteht aus 10 Leitungen, von de- 
nen 8 Datenleitungen und zwei Handshake-Leitun- 
gen sind. 

An Material wird benötigt: 

1 x 10-adriges Flachbandkabel mit etwa 1 m Länge 

1 x 40-poliger Präzisions-IC-Sockel 

1 x Userportstecker 

1 x Gehäuse für Userportstecker 


Selbstbau schnell und preiswert 
EEE TREEEDEHI COLT ZT 


Zuerst werden die 10 Adern des Kabels am User- 
portstecker entsprechend des Belegungsplanes an- 
gelötet, wobei man mit größter Sorgfalt vorgehen 
sollte, da Computer oder Floppy durch einen Fehler 
leicht Schaden nehmen können. Dann wird der User- 
portstecker in das Gehäuse eingebaut und die Ober- 
seite des Gehäuses mit einem Stück Klebeband oder 
einem Aufkleber gekennzeichnet (nie den Userport- 
stecker falschherum in den Userport stecken!!). 

Nun werden die 10 Adern auf der anderen Seite des 
Kabels an die entsprechenden Pins des IC-Sockels 
gelötet, wobei man darauf achten muß, daß sie mög- 
lichst weit oben an den Pins (kurz unter dem Plastik 
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des Sockels) angelötet werden, da sich der Sockel 
sonst später nicht in den Ursprungssockel stecken 
läßt. 

Zum Einbau wird die Floppy geöffnet (vorher 
unbedingt Netzstecker ziehen!) und das dritte 
große IC von hinten rechts (siehe Skizze) aus dem 
Sockel entfernt. Dann wird in den vorhandenen Sok- 
kel der neue mit dem angelöteten Kabel gesteckt 
und in diesen wiederum das IC (Kerbe muß beim 
Sockel und IC nach hinten zeigen!). 

Das Flachbandkabel wird durch eine der vorhande- 
nen Öffnungen (zum Beispiel durch die Öffnung des 
Netzkabelsteckers) nach außen geführt und die 
Floppy wieder zugeschraubt. 


Das Kabel sollte niemals in den Userport gesteckt 
oder aus dem Userport gezogen werden, wenn 
Floppy oder Computer eingeschaltet sind !! 


Das Kopierprogramm 

Das Kopierprogramm ist in der Lage, mit Hilfe des 
Parallelkabels Programme beim Kopieren achtmal 
schneller zu lesen und schreiben, wobei beim 
Schreiben kein Verfiy ausgeführt wird. Es lassen 
sich Programme und sequentielle Dateien kopieren. 


Relative Daten-Files können 
aufgrund ihrer komplexen Struktur 


nicht kopiert werden. 
BEE REEL TEE ZUETERTZERELEDTR 


Die zu kopierenden Programme werden aus dem 
Directory ausgewählt und dann kopiert. Passen nicht 
alle Programme auf einmal in den Speicher, so wird in 
mehreren Durchgängen kopiert. Das Kopierpro- 
gramm gibt an, ob die Quelldiskette (zum Lesen wei- 
terer Files) oder die Zieldiskette (zum Schreiben der 


im Speicher befindlichen Files) eingelegt werden 
soll. 

Beim Lesen und Schreiben stehen in der obersten 
Zeile stets folgende Informationen: 

FRE: Anzahl der noch freien Blocks (nur beim 
Schreiben) 

Anzahl der gelesenen/noch zu schreibenden 
Blöcke 

TRK: aktuelle Tracknummer 

SE: aktuelle Sektornummer 

Im Hauptmenü (nach dem Starten des Programmes) 
sind folgende Funktionen über den entsprechenden 
Tastendruck aufrufbar: 

Fl Kopieren 

F3 Diskbefehl senden 

F7 Directory anzeigen 

F8 Programm verlassen 

Das Kopieren 


BLK: 


100 Blocks in zehn Sekunden 
RE REES 


Nach Drücken von Fl erscheint nach einem Moment 
ein Teil des Directorys der aktuellen Diskette auf 
dem unteren Teil des Bildschirms. Von jedem Pro- 
gramm wird Name, Typ, Länge, Track und Sek- 
tor des ersten Blocks angezeigt. Unter dem Buchsta- 
ben H wird angegeben, ob das Programm zum Kopie- 
ren gewählt ist. 0 bedeutet nicht gewählt, 1 bedeutet 
gewählt. Ein Pfeil zeigt auf das aktuelle Programm, 
welches nun mit der Return-Taste gewählt bezie- 
hungsweise abgewählt werden kann. Mit Hilfe der 
Cursor-up und Cursor-down Tasten werden die Ein- 
träge nach oben und unten gescrollt. 

Mit der Taste A können alle Programme gewählt 
werden. 


WARNEN DUTER VOR. DEM, 


Mit der Taste Q gelangt man zurück zum Hauptmenü. 
Das Kopieren wird mit Druck auf die Taste B begon- 
nen. Soll das Directory noch einmal eingelesen 
werden (zum Beispiel nach Wechseln der Diskette), 
so muß R gedrückt werden. 


Befinden sich auf der Diskette keine Programme, so 
wird die entsprechende Fehlermeldung ausgege- 
ben. 


Beim Kopieren zeigt das Programm an, welches 
File gerade gelesen oder geschrieben wird. Nach 
Ende jedes Durchgangs wird man gefragt, ob man die 
im Speicher befindlichen Programme noch einmal 
Speichern möchte. Ist dies nicht der Fall, so drückt 
man N, ansonsten ]. 


Tritt beim Lesen oder Schreiben ein Fehler auf, so 
wird dieser angezeigt und ein Untermenü bietet fol- 
gende Möglichkeiten: 

Taste Q Kopiervorgang abbrechen 

Taste T noch einmal versuchen, das File zu lesen be- 
ziehungsweise zu schreiben 

Taste N dieses File auslassen und zum nächsten 
gehen 


Senden eines Befehls an die Diskettenstation 

Nach dem Druck aufF3 erscheint das Wort 'BEFEHL:' 
und dahinter ein Cursor. Der Befehl kann nun über 
die 

Tastatur eingegeben und die Eingabe mit Return 
abgeschlossen werden. 

Anzeigen des Directorys 

Mit Funktionstaste F7 wird das Directory der aktuel- 
len Diskette angezeigt. 

Verlassen des 

Durch F8 wird ein Kaltstart ausgeführt. Das Pro- 
gramm kann, sofern es nicht gelöscht wurde, mit SYS 
5530 wieder gestartet werden. 

(Markus Marquardt) MmccesE 


Mai/87 um 47 


Bauanleitung 
Kopierprogramm für Parallel-Kabel 


0801 
0809 
o81l 
0819 
oB821 
0829 
0831 
8839 
0841 
0849 
0851 
0859 
0861 
0869 
0871 
0879 
o881 
0889 
0891 
0839 
OBal 
0833 
2Bb1 
08b9 
0801 
08c9 
0841 
0849 
öBel 
0889 
oBrFfi 
OBF3 
0901 
0903 
03911 
0919 
03921 
0929 
0331 
0339 
03941 
0949 
0951 
0359 
0961 
0969 
0971 
093793 
0381 
0989 
0991 
0999 
09ai 
0939 
89b1 
09b9 
89c1 
89c9 
2941 
2349 
0Sel 
0989 
ogF1 
e3gFf9 
dao1 
0809 
®a11l 
8a19 
Ba21 
Ba29 
0a31 
8339 
Da41 
Ba49 
0a51 
Ba593 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


8c,808,c2,07,9e,20,32,30, 
36,34,00,008,20.00,00,a2, 
10,20,00,88,b69.2b,17,99, 
88,18,c0,00,d0,f5,ce, 17. 
08,ce,1a,08,ca,d®,ec,4c, 
9a,15,39,10,2c,0d,dd,Fd®, 
fb,ad,21,dd.690,30,00,20, 
00,09,99,20,08,c8,d®,F7, 
20,00,09,8d,fe,07,20,00, 
89,8d,FF,07,60,ae,Ffe,®7, 
ac,ff,07,20,31,29,b9,11, 
85,£f7,48,85,£9,48,a5,f7?, 
c9,01,f0,1F,20,e7,09,90, 
04,68,68,38,60,280,00,c6, 
01,35,fe,91,F8,c8,a5,ff, 
91,f8,e6,01,06,£7,e6,f£9, 
4c,34,09,68,85,£9,68,85, 
f7,18,680,24,00,dd,19,Ffb, 
29,48,d0,1d,a0,008,84,Ff, 
c6,01,b1,f8,e6,01,8d,®1, 
ad,45,Ff,85,Ff,85;ff,cB, 
d®d,ee,a5,ff,8d,01,dd,18, 
60,38,60,39,00,84,03,dd, 
69,a9,ff,8d4,23,dd,60,78, 
a9,35,85,01,60,39,37,85, 
01,58,60,83,0a,0a,85,62, 
S8,4a,4a,43,85,64,a9,08, 
85,63,98,29,07,a8,b9,df, 
09,85,61,a0,00,b1,62,d®, 
02,38,680,24,64,c8,b1,62, 
e5,61,d0,02,18,60,b1,62, 
45,61,91,62,30,00,b1,62, 
38,e9,01,91,62,18,a9,01, 
60,01,02,04,08,10,20,42, 
80,a89,11,85,fe,a9,00,85, 
ff,a6,fe,a4,Ff,28,a1,09, 
99,1b,c6,fe,d8,f3,a9,13, 
BS,fe,aß,fe,a4,ff,20,al, 
09,30,0a,e6,fe,a5,fe,c9, 
E4,d®,ef,38,60,d0,29,a6, 
Ffe,at,Ff,20,21,09,d0,20, 
a5,ff,18,69,03,85,ff,a6, 
fe,at,ff,20,81,09,d0,10, 
a5,fFf,38,e9,02,18,69,01, 
85,Fff,c9,0c,d®,d9,38,6®, 
18,60,86,£f7,8e,35,18,84, 
f9,a9,00,85,f8,20,9b,09, 
78,20,78,0b,28,8c,0c,b®, 
51,20,89,09,28,95,09,2®, 
2b,09,28,8£,09,20,35,0b, 
20,55,0b,20,23,09,b0,27, 
839,808,84,01,dd,208,f2,2a, 
20,61,09,69,26,e6,f9,c6, 
£7,d0,f2,a9,11,a2,00,2®, 
bd,02,a9,08,85,f9,20,61, 
09,20,96,89,a9,00;60,a9, 
01,8d,801,dd,280,9b,09,89, 
01,18,60,20,9b,09,89,02, 
18,60,28,ae,0b,20,47,0c, 
a9,30,20,aB,ff,a9,ea,2®, 
a8,Fff,20,ae,ff,38,60,48, 
Ba,ad,30,a2,30,c9,64,90, 
06,38,e9,64,c8,b9,f6,c9, 
02,90,06,38,e9,0a,e8,b®, 
f6,18,69,30,84,68,86,69, 
85,62,68,88,a5,68,99,00, 
04,35,69,99,01,04,a5,6a, 
99,22,04,60,86,£7,89,11, 
20,bd,04,c6,01,30,00,b1, 
fB,aa,a9,1b,28,bd,®2a,a®, 
01,b1,FB,aa,a9,23,29,bd, 
0a,e6,01,ad,09,04,c9,30, 
£f90,04,ce,09,04,60,49,39, 
8d,09,04,ad,08,04,c9,30, 
f0,04,ce,08,04,60,39,39, 
8d,08,04,ce,07,04,60,a0, 
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Ba61 
0369 
0a71 
0a79 
®aB1 
0389 
0a31 
0a39 
Baal 
Oaa9 
Qabi 
Bab3S 
Bacl 
Bac9 
Badi 
Bad9 
Bael 
Bae3 
Bari 
Baf9 
0b91 
0b83 
Ob11 
8b19 
®b21 
®8b29 
0b31 
2b39 
8b41 
0b49 
8bS1 
0b59 
Ob61 
®b69 
0b71 
8b79 
®b8B1 
0b83 
8bS1 
0b399 
Obal 
2ba9 
®bb1 
®bb3 
®bc1 
®bc9 
Obdi1 
0bd9 
@bei 
®be3 
Obf1 
ObF9 
8c01 
0c09 
®c11 
0c19 
0c21 
0c29 
8c31 
0c39 
8c41 
8c49 
8c51 
8c59 
®c61 
8c69 
0c71 
0079 
8c81 
8c83 
8c91 
0c39 
Ocal 
@ca3 
®cb1 
®cb93 


770 
788 
7908 
8008 
810 
8208 
838 
840 
858 
868 
870 
880 
832 
9208 
918 
928 
938 
s428 
950 
9368 
9378 
982 
332 
1298 
1018 
1920 
1030 
1042 
19059 
1068 
1970 
1888 
1839 
1190 
1118 
1120 
1138 
1148 
1158 
1160 
1178 
1180 
1198 
1209 
1218 
1220 
1238 
1240 
1250 
1268 
1270 
1288 
1298 
1308 
1310 
1328 
1330 
1340 
1350 
1360 
1370 
138® 
1398 
1408 
1418 
1428 
1438 
1448 
1458 
1460 
1478 
1488 
1499 
1508 
1518 
1528 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


00,84,68,84,69,a2,23,c2, 
44,F0,8c,b9,04,08,18,65, 
68,85,68,90,02,e6,69,c8, 
c8,c8,c8,ca,d®,e9,60,a0, 
30,35,568,38,e9,64,b9,06, 
836,69,F0,08,c6,69,85,68, 
cB,4c,57,0b,26,68,98,48, 
89,07,20,bd,0a,68,8d,97, 
04,60,32,00,bd,86,0b,9d, 
00,04,e8,e0,28,d0,f5,60, 
20,20,86,92,85,ba,20,20, 
29,29,28,20,82,8c,Bb,ba, 
20,20,20,20,20,20,94,32, 
8b,ba,28,20,20,20,20,33, 
85,ba,20,20,20,20,20,20, 
a9,08,28,b1,ff,a9,6f,20, 
s3,ff,60,39,08,20,b4,ff, 
a93,6f,20,36,ff,60,a2,00, 
bd,d2,8b,20,a8,ff,e8,ed, 
03,d0,F5,68,4d,2d4,57,78, 
a0,00,8c,03,18,39,0b,8d, 
0c,18,b1,390,99,00,04,c8B, 
d®,FfB,a5,31,85,1b,84,3b, 
a9,05,85,3c,22,02,8e,01, 
18,8d,008,18,a9,10,2c,0d, 
18,f0,fb,ad,801,18,91,3b, 
c8,d2®,ee,e6,3c,ca,d®,e9, 
40,80,06,20,b9,0b,20,a5, 
ff,85,02,20,85,Fff,48,18, 
65,02,c9,69,d0,06,68,20, 
ab,ff,18,690,a9,0d,20,d2, 
Ff,a5,02,20,d2,ff,68,20, 
ue,ff,20,85,£0,020792;PF, 
2e4,90,50,f6,28,ab,ff,38, 
60,22,00,bd,55,0c,20,a8, 
Ff,eB,e8,03,d0,F5,60,4d, 
2ed,45,84,01,dd,a2,28,ca, 
dd,fd,60,39,01,a2,08,a2, 
6f,20,ba,ff,a9,00,20,bd, 
ff,20,c0,fFf,60,83,02,a2, 
08,20,ba,ff,a9,12,a2,8e8, 
a8,07,20,bd,ff,20,c0,Fff, 
a2,01,20,1f,F3,69,20,61, 
0c,28,61,20,73,0c,20,11, 
0c,938,01,60,39,d5,85,fe, 
a9,2b,85,ff,a9,83,85,fd, 
a9,02,85,02,20,25,2d,20, 
ae,0b,28,47,0c,a9,00,20, 
a8,ff,a9,03,20,a8,ff,20, 
ae,ff,20,8f,09,39,198,2c, 
Od,dd,F®,Fb,a0,00,b9,46, 
17,20,58,0c,c8,d®,£7,b9, 
46,18,20,58,0c,c8,d0,f7, 
ad,20,dd,30,fb,18,60,8d, 
10,17,8d,fe,07,Be,14,17, 
Be,ff,07,84,f9,29,00,85, 
£7,85,Ff8,20,78,0b,20,9b, 
03,20,61,02c,a0,60,20,73, 
0c,20,11,0c,30,01,60,a9, 
04,85,02,280,00,89,d1,85, 
fe,a9,16,85,ff,39,05,85, 
£fd,20,25,0d,4c,4e,0d,a®, 
00,20,ae,0b,20,c4,0b,38, 
20,aB,ff,a5,fd,20,a8,Fff, 
a9,20,20,a8,ff,a2,20,b1, 
fe,20,a8,ff,c8,ca,d®,F7, 
20,ae,ff,c6,02,d0,da,60, 
2d,ae,0b,20,47,0c,a9,2e, 
20,a8,ff,a9,05,20,a8,Fff, 
20,ae,ff,20,89,09,20,35, 
09,39,49,2c,00,dd,d®,Fb, 
89,1b,ae,fe,07,20,bd,®a, 
a9,23,ae,ff,07,20,bd,®a, 
280,b1,8d,b8,27,e6,f7,a9, 
11,a6,£f7,20,bd,80a,c6,®1, 
a8,00,b1,f8,Bd,fe,07,c8, 


®cci 
8cc3 
®cdi 
8cd9 
®cel 
®ceS 
®cfl 
Ocf9 
2d21 
0499 
0d11 
8d19 
8d21 
8429 
0431 
8439 
8d41 
2443 
8451 
2459 
2d61 
8463 
08471 
2479 
2d81 
0489 
2d81 
2499 
Odal 
0da9 
@dbi 
@db93 
Bdcl 
2dc9 
Bddi 
dd 
®del 
®de9 
Odfi 
Odfg 
de01 
Be09 
dell 
Be139 
Be21 
de29 
Be31 
de39 
Be41 
Bde49 
®e51 
8e59 
Be6l 
Be69 
Be71 
2e73 
BeBl 
0889 
Bde31 
0e39 
Beal 
dea9 
Beb1i 
Beb3 
Beci 
Bec9 
Bedi 
Bded3 
Beei 
Bee3 
Befi 
Bef9g 
orfo1 
of29 
@rı1 
of19 


1538 
15492 
1558 
1568 
1578 
1588 
1590 
1698 
1618 
1628 
1630 
1648 
1658 
1668 
1678 
1688 
1698 
1702 
1718 
1728 
1738 
1742 
1758 
1768 
1778 
1788 
1790 
1808 
1810 
18208 
1830 
1840 
1850 
1868 
1870 
1880 
1899 
1908 
1910 
19208 
1938 
1940 
1959 
1960 
1978 
1988 
1999 
20008 
2010 
2028 
2038 
2040 
2050 
2060 
2078 
2080 
2030 
2198 
211® 
2128 
2130 
2140 
2150 
2160 
2170 
2188 
2190 
2208 
2210 
2220 
2239 
B24O 
2250 
22608 
2270 
2288 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


b1,f8,8d,ff,07,e6,01,e6, 
£f9,ad,fe,07,d2,ca,20,Sb, 
09,a9,208,60,20,9b,09,a9, 
01,18,60,20,00,a2,35,ad, 
00,dd,18,Fb,29,40,d0,15, 
a9,10,2c0,0d,dd,fF®,fb,ad, 
01,dd,c6,01,91,f8,86,01, 
c8B,d®,ed,18,60,38,60,a9, 
0d4,20,d2,Ff,a®,Ff,c8,b9, 
f2,0d,d®d,fa,ca,dd,f7,c8, 
b9,f2,0d,f®,06,20,d2,Ff, 
4c,e5,2d,69,08,12,4c,20, 
45,20,53,20,45,92,20,3a, 
20,08,12,53,43,48,52,45, 
49,42,45,92,20,38,29,00, 
12,53,50,41,43,45,20.:44; 
52,99,149,493,46,45, 98,92: 
04,208,12,4c,45,53,45,46, 
45,48,4c,45,52,20,21,32, 
2d,892,12,40,45,53,45,46, 
45,48,4c,45,52,92,29,41, 


07,e8,e0,12,d 
Be,a9,12,a2,8 
e5,0c,90,05,2 
60,c9,01,d0,® 
dS,2d,20,03,28 


060r-® 
. nn nn nee 
.. 


02,85,f8,39,08 
00,b1,FB,10,2f 
eb,aa,bd,c6,df 
bd,cb,0f,20,dS, 
af,20,d5,0Ff,c8,b1,F 
dS,2f,c0,12,d0,F6,a0,1c, 
b1,f8,20,d5,0Ff,29,20,20, 
dS,0f,e6,F7,a5,f8,18,68, 
20,85,f8,c6,02,d0,c0,a®, 
00,84,f8,b1,F8,c9,12,d0, 
085,e6,f3,4c,4d,@f,a5,F7, 
f0,22,18,60,82,07,20,d5, 
0d4,20,03,0F,38,60,24,2c, 
S®,a0,ad,ad,a0,a0,a0,a0, 
a0,a0,a®,a0,20,20,20,20, 
43,53,290,59,3@,.45.45.52; 
53,45;40,51,47,52,40,84, 
61,20,00,91,Fe,e6,fe,d2, 
02,e6,ff,a4,61,60,85,28B, 
a9,17,85,71,a9,00,85,29, 
85,72,20,57,b3,98,18,69, 


- 


55,46,28,80,12,53,43,48, 
52,435,49, 3036,45 38, 4E; 
45,52,92,28,41,55,46,290, 
00,12,4b,45,49,4e,45,29, 
46,49,4c,45,53,28,56,4f, 
S2,48,41,4e,44,45,4e,20, 
21,92,0d4,08,12,44,499,53, 
4b,20,56,4f ,4c,40,28,21, 
92,04,88,51,51,34,51,55, 
49,54,20,54,3d,4e, 45,55, 
45,52,29,56,45,52,53,55, 
43,4B,2c,4e,3d,4e,41,45, 
43,48,53,54,45,53,29,46, 
49,40,45,04,88,12,51,55, 
45 ,4c,40,44,49,53,4b,28, 
45,49, 4e, 4c,45,47,35,4e, 
92,04,20,12,5a2,499,45,“c, 
44,49,53,4b,28,45,419,38} 
4c,45,47,45,4e,92,024,88, 
12,48,4f,43,48,4d,41,9c, 
20,53,41,56,45,4e,28,3F, 
92,2d,00,12,46,45,52,54, 
49,47,92,0d,08,22,24,22, 
00,20,0c,e5,560,a2,18,2®, 
00,20,0c,e5,68,22,23,2®, 
dS,2d,a5,cb,c9,3c,d®,Fa, 
60,a2,00,bd,b4,0F,9d4,e8 
FS5,28,£3 

&a8,20,29 

03,0f,38 

a2,04,298 

38,69,893 

8S,fe,a9 

85,£9,89 

85,02,a8 

29,07,f8 

20,d5,0F 

BF,bd,d® 

28 
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ıf 


or2i1 
of29 
orf31 
0f39 
oFf41 
of49g 
ofsiı 
0593 
OF61 
BF63 
0f71 
0£79 
orf8sı 
of83 
orfsı1 
orfs9 
ofal 
ofa9g 
OFfbl 
Ofb9 
Bfci 
8fc9 
BFfd1 
ofd9 
Bfei 
8fes 
OrfFfl 
orfs 
1991 
1009 
19011 
1819 
1821 
1829 
1831 
1839 
1841 
1943 
1851 
1853 
1861 
1863 
1971 
1079 
1081 
1089 
1091 
1039 
18a1 
18a9 
10b1 
10b3 
10c1 
19c9 
12d1 
1@d9 
18ei 
1089 
10F1 
10F9 
1101 
1189 
1111 
1119 
1121 
1129 
1131 
1230 
1141 
1149 
1151 
1159 
1161 
1169 
1171 
1179 


2530 
2628 
2610 
26208 
2639 
2640 
2658 
2669 
2678 
2688 
2630 
27008 
2718 
2720 
2730 
2740 
2750 
2768 
2770 
2788 
2790 
2808 
2810 
2820 
28308 
2840 
2850 
2860 
2870 
2880 
2890 
2908 
2910 
29208 
2932 
2940 
2959 
2960 
29379 
29828 
2990 
3008 
3010 
3920 
3838 
3040 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


19,85,F9,86,F8,60,20,e4, 
Of,a8,05,39,01,85,d4,b1, 
£f8,20,d2,ff,c8,c0,15,d®, 
f2,208,bb,12,a0,20,84,d4, 
a2,02,20,53,10,b1,Ff8,2®, 
d2,ff,c8,c0,03,d0,Ff6,a2, 
02,20,53,10,30,15,b1,FB, 
20,5c,10,a2,02,20,53,10, 
a0,16,b1,f8,09,30,20,d2, 
ff,a2,03,20,53,19,a0,03, 
b1,Ff8,20,5c,10,a0,04,b1, 
£f8,28,5c,10,60,39,20,2®, 
d2,ff,ca,d®,fa,68,aa,e®, 
64,b8,05,39,20,20,d2,Fff, 
e0,03,b0,05,39,20,20,d2, 
ff,a9,00,280,cd,bd,60,89, 
0d,28,d2,Fff,a9,01,a2,08, 
a8,60,20,ba,ff,a9,24,85, 
02,a9,01,a2,02,a0,00,20, 
bd,ff,20,c0,ff,a9,08,20, 
b4,ff,a9,60,20,96,Ff,20, 
aS,ff,20,a5,fFf,20,a5,ff, 
20,a5,ff,a5,90,d0,24,28, 
aS,ff,aa,20,a5,ff,20,cd, 
bd,20,a5,ff,d®,08,39,0d, 
2e9,d2,ff,4c,a3,190,20,d2, 
ff,a5,cb,c9,3F,F0,04,a5, 
90,f0,e6,39,08,20,ab,ff, 
a9,01,29,c3,ff,20,03,0F, 
60,208,0F,0F,90,01,60,a2, 
20,6d,73,11,20,d2,Ff,e8, 
e8,9f,d8,F5,a9,00,85,Ffe, 
a9,fF4,85,02,a5,fe,cS,£7, 
90,04,a9,ff,85,02,20,2b, 
13,e6,fe,a5,Ffe,c9,0c,d®, 
eb,aS,00,85,02,20,2a,12, 
20,e4,Fff,f®O,fb,c9,11,d0, 
06,20,24,13,4c,16,11,c9, 
91,d0,06,20,81,13,4c,16, 
11,c9,2d,d0,09,20,11,12, 
e9,2%,13,40,16, 11,094, 
d®,1d,a5,22,F0,06,20,8B1, 
13,4c,40,11,29,11,12,290, 
24,13,36,02,eB,e4,F7,d0, 
£3,20,11,12,40,16,117,08; 
51,d0,22,38,60,c9,42,d2, 
02,18,60,c9,52,d0,a9,20, 
e7,ff,4c,df,19,93,5153d, 
51,55,29,54,26,43,53,50, 
20,55,58,2f,44,4Ff,57,4e, 
39,93,43,52,4f,Ne,4c,45, 
Ye,20,52,3d,44,99,52,2e, 
4c,45,53,45,4e,0d,52,45, 
S4,28,3d,41,4e,2f,41,42, 
57,41,45,48,%c,45,4e,2c, 
41,3d,41,4c,40,28,57,28, 
2c,42,3d,41,48,46,41,4e, 
47,45,4e,0d,20,20,20,20, 
20,20,4e,41,4d,45,20,20, 
20,280,20,20,20,20,54,59, 
50,20,20,42,4c,4b,20,20, 
48,20,208,20,20,54,52,20, 
53,45,2d,b7,b7,b7,b7,b7, 
b7,b7,b7,b7,b7,b7,b7,b7, 
b7,b7,b7,b7,b7,b7,b7,b7, 
b7,b7,b7,b7,b7,b7,b7,b7, 
b7,b7,b7,b7,b7,b7,b7,b7, 
b7,b7,b7,a5,02,20,e4,0f, 
a0,16,b1,f8,49,01,91,F8, 
09,30,8d4,24,06,60,a9,93, 
20,d2,Ff,60,39,00,85,c6, 
69,20,00,84,fe,B4,02,84, 
62,39,19,85,ff,a5,02,20, 
e4,0f,a8,16,b1,fB,d®,0b, 
e6,02,85,02,c05,F7,90,ed, 
a5,62,680,20,00,b1,fF8,20, 
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1181 3050 data dS,0Ff,c8,c0,17,d0,f6,e&, 
1189 3068 data 62,4c,46,12,30,05,b1,F8, 
1191 3078 data 99,e3,07,c8,c0,15,d®,F6, 
1199 3088 data a9,2c,8d,f8,07,a0,80,b1, 
11al 3090 data F8,8d,f9,07,20,04,b1,F8, 
11a9 3108 data aa,88,b1,f8,60,a2,00,bd, 
11b1 3110 data af,12,20,d2,ff,eB,e0,05, 
11b9 3128 data d®,f5,ad,fe,07,20,5c,10, 
'11c1 3130 data a2,00,bd,b4,12,20,d2,Fff, 
11c9 3140 data e8,e2,07,d0,f5,ad,ff,07, 
11d1 3158 data 20,5c,10,a9,0d,209,d2,ff, 
11d9 3168 data 60,54,52,41,43,4b,2c,53, 
ilei 3170 data 45,43,54,4f,52,a2,10,a9, 
'1leS3S 3180 data 00,95,61,ca,d®,fb,60,3®, 
ı1fi 31908 data 15,b1,f8,20,5c,10,a2,02, 
11f9 3200 data 20,53,10,39,01,85,d4,a®, 
1201 3218 data 05,b1,f8,20,d2,ff,c8,c®, 
1209 3228 data 15,d0,f6,20,00,84,d4,a2, 
1211 3238 data 03,20,53,10,b1,f8,20,d2, 
1219 3240 data FFf,c8,c0,03,d9,f6,a9,0d, 
ı221 3250 data 29,d2,FFf,60,20,bb,12,b®, 
1229 3260 data 03,20,83,12,22,09,20,d5, 
1231 3278 data 0d,20,2a,12,20,e4,Fff,Ff®, 
1239 3288 data fb,c9,51,d0,03,a2,00,60, 
1241 3298 data c9,54,d0,03,a2,01,60,c9, 
1249 33008 data “4e,d®,e9,a2,02,60,36,02, 
1251 3318 data eB,e4,f7,b0,4f,a9,20,Bd, 
1259 3320 data 26,96,22,00,bd,c8,94,3d, 
1261 3330 data a0d,04,e8,e0,f0,d0,f5,a2, 
1269 3340 data 00,bd,bB,05,9d,30,05,88, 
'1271 3350 data e®,f0,d0,f5,a2,00,bd,a8, 
1279 336® data 06,34,80,06,e8,e0d,F0,d®, 
1281 3378 data fS,a?,00,bd,98,07,3d4,70, 
1289 3388 data 27,e8,e0,50,d0,F5,a9,1f, 
1291 33908 data 8d4,26,06,20,fb,0e,a5,02, 
1299 3490 data e6,02,18,69,00,c5,f7,b®, 
‚i2a1 3418 data 04,20,fc,0Ff,60,a2,27,20, 
1289 3420 data 53,10,60,25,02,f0,47,a9, 
12b1 3438 data 20,8d,26,06,a2,50,bd,6fF, 
. 1269 34408 data 07,94,97,07,ca,d®,F7,a2, 
12c1 3450 data f®,bd,7f,06,9d,a7,06,ca, 
1209 3468 data d®,f7,a2,F®,bd,8Ff,05,9d, 
12d1 3470 data b7,05,ca,d®,F7,a2,Ff®,bd, 
12d9 3480 data 9f,04,9d,c7,04,ca,d®,F7, 
12e1 3490 data a9,1F,8d,26,06,20,f3,0e, 
1289 3508 data a5,02,c6,02,38,e9,08a,b®, 
ı2f1 3518 data 06,22,27,20,53,10,60,20, 
129 3520 data Fc,0Ff,60,20,df,10,30,01, 
1301 353® data 60,20,2f,12,d0,01,60,85, 
1309 3548 data 03,85,03,20,e4,0F,a6,fs, 
1311 3550 data e8,8e,fd,07,a9,00,85,04, 
1319 3569 data 85,95,ad,fd,97,8d4,Fc,97, 
1321 3570 data 20,24,12,20,f3,0e,20,bb, 
1329 3588 data 12,20,e7,ff,a5,04,20,e4, 
1331 3598 data OF,a0,15,b1,f8,18,6d,fc, 
1339 3608 data 07,b0,58,a2,01,20,d5,0d, 
1341 3610 data 20,c5,12,20,62,12,ac,fc, 
1349 3620 data 07,20,06,15,20,e5,0c,F®, 
1351 3630 data 1e,b®,05,32,05,20,d5,0d, 
1359 3649 data 20,fa,12,d0,01,60,ca,f®, 
1361 3650 data c5,a5,04,20,e4,0f,a0,16, 
1369 3668 data a9,00,91,f8,4c,61,14,a5, 
1371 3670 data f9,48,38,ed,Fc,07,48,a5, 
1379 3688 data 04,20,e4,0f,a0,15,68,931, 
1381 3698 data fB,c8,ad,fc,07,31,f8,68, 
1389 37908 data Bd,fc,07,e6,04,a5,04,c5, 
1391 3718 data 03,90,93,a2,0b,20,d5,0d, 
1399 3720 data 20,08,0f,20,24,12,20,F3, 
1331 3738 data Be,a5,05,8d,fb,07,20,bb, 
1349 3740 data 12,20,e7,ff,35,05,20,e4, 
13b1 3758 data Of,a8,16,b1,Ff8,f0,3a,a2, 
1369 3760 data 02,20,d5,0d,20,c5,12,20, 
13c1 3778 data 62,12,a0,15,b1,Ff8,aa,a®, 
13c9 3788 data 16,b1,f8,28,20,06,15,20, 
13d1 3798 data 40,0a,f0,1d,b80,12,c9,01, 
13d9 38988 data d®,09,22,08,20,d5,0d4,38, 
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13ei1 
13e89 
ı13£1 
139 
1491 
1499 
1411 
1419 
1421 
1429 
1431 
1439 
1441 
1449 
1451 
1433 
1461 
1469 
137% 
1479 
1481 
1489 
1491 
1499 
14a1 
1489 
14b1 
14b9 
14c1 
14c9 
14d1 
1449 
i4el 
14e9 
14f1 
1425 
1501 
1509 
1511 
1519 
1521 
1529 
1531 
1533 
1541 
1549 
1551 
1559 
1561 
1569 
1571 
1579 
1581 
1589 
1591 
1599 
15a1 
1539 
15b1 
15b9 
15c1 
15c9 
15d1 
15d9 
15e1 
15e3 
ı5F1 
ı15F9 
1601 
1699 
1611 
1619 
1621 
1629 
1631 
1639 


3818 
38208 
3839 
3840 
3859 
3868 
3878 
3888 
3890 
3900 
3318 
3920 
3930 
3949 
3958 
3969 
3970 
39898 
3938 
4900 
4018 
4920 
4030 
4942 
4050 
4069 
4070 
4082 
4990 
4108 
4118 
4120 
4130 
4148 
4158 
4169 
4178 
4188 
4198 
420908 
4219 
4220 
4238 
4249 
4250 
4260 
4270 
4288 
4298 
4308 
4310 
43208 
43390 
4349 
4350 
4369 
4370 
4389 
4398 
4400 
4410 
4420 
4430 
4448 
4450 
4468 
4470 
4488 
4490 
4500 
4510 
45208 
4538 
4549 
4558 
4569 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


“4c,be,14,82,06,20,d5,0d, 
20,fa,12,d0,01,60,ca,f®, 
b5,e6,05,a5,05,c5,24,90, 
ad,a2,8c,20,d5,0d,20,2a, 
12,20,e4,ff,f®,fb,c9,“e, 
f8,0c,c9,4a,d8,f3,ad,fb, 
07,85,805,4c,69,14,a5,05, 
c5,03,b9,0b,a2,03,20,d5, 
0d4,20,28,2f ‚4c,f0,13,a2, 
0d,20,d5,0d,20,03,0F,60, 
2c,820,dd,10,fb,60,a2,22, 
89,30,9d4,3b,03,ca,d®,Fa, 
bd,86,15,20,d2,fFf,e8,e®d, 
0b,d0,F5,39,080,85,cc,20, 
e4,ff,f®,fb,c9,0d,f0,32, 
c9,14,d0,16,36,d3,e®,2a, 
fod,ed,a4,d3,a9,20,20,51, 
15,88,84,d3,28,10,e5,“c, 
25,15,c9,90,90,04,c9,ad, 
90,d5,c9,20,90,d1,86,d3, 
e0,26,b®,cb,20,91,15,4c, 
e5,15,a2,01,86,cc,29,d2, 
ff,a9,01,a32,08,a0,6Ff,20, 
ba,ff,a9,20,a2,3c,80,03, 
20,bd,ff,20,c0,ff,20,b3, 
0b,20,38,0c,20,03,0F,60, 
0d,290,42,45,46,45,48,4c, 
20,3a,20,36,d3,9d4,32,03, 
20,d2,ff,60,20,81,Ff,20, 
a3,fd,20,e7,Fff,20,bb,12, 
a9,0b,8d4,20,d0,a9,0c,8d, 
21,d0,39,80,8d,91,02,a2, 
00,bd,f5,15,F0,06,20,d2, 
ff,e8,d®,f5,20,2a,12,20, 
e4,ff,f®,fb,c9,85,d0,03, 
20,24,12,20,d1,13,4c,a8, 
15,c9,86,d0,06,20,0c,15, 
4c,30,15,c9,88,d0,09,20, 
24,12,20,75,10,4c,a0,15, 
c9,8c,d8,d3,4c,e2,fc,05, 
93,11,11,11,20,20,20,20, 
20,20,20,23,28,580,41,52, 
43;,40,4c, 45,40, 20,46,49, 
40,435,43,4f,50,53,20,56, 
31,2e,30,20,23,0d,20,20, 
e8;20,57,52., 1 9%. 35, 
4e,20,31,39,38,36,20,42, 
59,£9,20,141,52,487599,99, 
20,4d,41,52,51,55,41,52, 
44,54,20,23,0d4,11,11,20, 
20,20,20,42,49,54,54,45, 
29557,41; 45,48 40:35 38, 
20,53,49,45,20,38,0d,11, 
20,20,20,20,27,46,31,27, 
20,20,4b,4f ,58,49;,45,58, 
45,4e,8d,11,20,20,20,20, 
027.46, 33, 27, 20,20,42.,45, 
46,45,48,4c,28,41,4e,20, 
46,4c,4f,50,50,59,20,53, 
45 ,4e,44,45,4e,0d,11,28, 
20,20,20,27,46,37,27,20, 
20:24,49,38, 35743, 54,3, 
52759,20,41,4e,58,45,49, 
47,45,4e,0d,11,20,20,2®, 
20,27,46,38,27,20,20,50, 
52,4f.,47,52,41, 44,.40,20; 
S6,45,52,4c,41,53,53,45, 
Ye,2d,0208,39,24,8d,80,18B, 
a0,00,2ad,08,18,b9,200,03, 
84,921,18,39,10,2c,2d,18, 
f®,fb,cB,d®,ed,a9,0Ff,8d, 
00,18,60,ae,00,1B,8d,®1, 
18,89,10,2c,80d,18,F0,Fb, 
69,78,39,0f,8d4,00,18,a9, 
0b,8d,2c,18,a9,ff,8d,83, 
18,39,10,85,06,a9,07,85, 
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1641 457® data 07,a9,80,85,00,58,36,00, a8 17a1 5010 data 0b,20,F0,05,39,00,84,03, 97 
1649 14588 data 38,Ffc,78,ca,f®,08,a9,00, 73 1739 5028 data 18,84,00,18,a9,18,2c,8d, ®b 
1651 1459® data 8d4,20,18,4c,a0,ea,20,00, 2£ 17b1 5038 data 1B,F0,Ffb,ad,21,18,F0,03, “4c 
1659 14692 data 05,ad,00,1c,49,08,8d4,00, Oa 1769 5048 data 4c,ac,86,20,9b,05,39,ed, e5 
1661 4610 data 1c,ad,01,03,85,07,ad,00, 38 17c1 SS data 85,02,58,45,02,30,Ffc,78, 8b 
1669 4628 data 23,85,06,d0,d4,4c,a0,ea, F3 17c9 S086® data fF®,08,a9,00,8d,08,18,4c, eB 
1671 4630 data a5,0a,85,18,a5,0b,85,19, ®c 17d1 5078 data ac,06,2d,20,1c,49,08,Bd, a® 
16793 14642 data a9,03,85,31,20,8F,F7,a9, dB 17d9 S088® data 09,1c,a5,3b,f0,09,85,0a, af 
1681 4650 data 90,45,16,45,17,45,18,45, 32 17e1 5290 data a5,3c,85,0b,4c,4b,06,a9, “4a 
1689 14662 data 19,85,1a,20,34,f9,a2,ff, 6d 17e3 51028 data 898,b61,94,29,80,91,94,a89, b4 
1691 145678 data 2c,00,1c,30,fb,ad,®1,1c, 4b 17F1 51108 data 90,85,01,58,85,01,30,fc, 8c 
16939 465682 data b8,30,08,50,fe,b8,ad,®1, ba 179 S12®8 data 78,20,9b,05,89,12,85,06, 02 
1631 4690 data 1c,d9,24,00,d0,58,c8,c0, e7 1801 51308 data a9,00,85,07,39,930,85,020, cH 
1639 14700 data 28,d0,F0,22,09,50,Ffe,b8, 85 18893 5140 data 58,35,00,30,fc,4c,ac,06, d9 
16b1 47108 data ca,dd,fa,a9,ff,8d4,23,1c, a4 1811 5150 data a9,80,85,04,58,45,04,30, 31 
1669 4728 data ad,0c,1c,29,1F,09,c0,8d, de 1819 5168 data fc,4c,Fe,05,78,a9,0b,8d, fS 
16c1 4738 data ®c,1c,a9,ff,a2,05,8d4,01, c3 1821 5178 data 08,1c,4c,a0,ea,00,00,00, 7a 
16cC9 474@ data 1c,b8,50,Ffe,b8,ca,d®,fa, 7b 1823 51808 data 008,00,00,00,00,00,00,00, ®8 
16d1 14758 data a0,bb,b9,00,01,58,fe,b8, 94 60028 For a= 2049 to 5185 step 4924 
16d9 4768 data 84,01,1c,c8,d0,f4,b9,00, 75 8:5=9:c=®:for b=® to 7: 
16e1 4770 data 83,50,fe,b8,8d,01,1c,c8, d9 gosub 569049 
16893 4780 data d®,Ff4,59,fe,ad,®c,1c,09, e3 60018 s=-s+h+l-c:c=s>255:5=-255-s 5034 
16f1 4798 data e8,8d,0c,10,a9,028,84,03, 75 and 255:poke a+b,h+l:next 
16f9 14898 data 1c,a9,00,4c,33,05,ca,d®, af b:gosub 69948 
1701 14812 data Bf,39,01,a4,3F,99,00,00, eb 60022 F$="pruefsumme ok”:if s<> 5699 
1789 4828 data 40,75,F9,a0,00,39,0d,Bd, 88 h+l then f$="[rvs] 
1711 4832 data 20,18,27,190,8Ba,2c,0d,18, cd pruefsummenfehler”:f=f+1 
1719 14840 data FO,fb,ad,90,18,ad,01,18, F6 608238 gosub 68898:next a:print ” 2267 
1721 4850 data 99,20,03,c8,d0,ee,Ba,2c, 14 [down]”f”fehler”:end 
1729 48608 data 0d,18,F0,fb,a9,0F,8d,00, 10 60040 read h$:gosub 569859: h=1* 2715 
1731 4878 data 18,ad,01,18,85,3a2,ad,20, “4c 16:h$=mid$ Ch$,2) 
1739 4888 data 03,85,3b,ad,01,03,85,3c, 54 600852 l=-asc ChS+”x")-4B:if 1<O 3198 
1741 4890 data 60,25,1b,38,e9,03,0a,a8, e6 or 1>22 then 69089 
1749 4908 data b9,99,00,38,e9,03,85,94, be 60860 if 1<18 then return 1944 
1751 491® data a9,04,85,95,b9,06,20,85, c? 600878 1-1-7:iF 1>9 then return 1334 
1759 4928 data 08,b9,07,00,85,09,60,6d, c5 60088 F$="Crvsleingabefehler”:1- 24698 
1761 14930 data ae,00,18,8d,01,18,a9,10, bb O:f=f+1 
1769 4949 data 2c,0d,18,F0,fb,60,78,89, bi 60038 print "zeile” peek (64)* 2726 
1771 4950 data fF,8d4,03,18,a9,0b,8d,®c, 7b e56+peek (63)f$:return 
1779 4968 data 18,a9,0Ff,84,00,18,20,00, 7a saven des programms nach starten 
1781 4970 data b9,00,07,20,f0,05,c8B,d®, 81 des loaders mit 
1789 4980 data F7,20,d1,05,a08,1c,ad,ef, e3 poke 43, 1:poke 44, 8 
1731 4990 data 05,91,394,a0,01,b1,94,85, cB poke 45, 43:poke 46, 24 
1799 5008 data 9a,29,F0,05,c8,b1,34,85, Fa save "name”,B 
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Ob in Indien, Brasilien oder im Sahel: 
Die ökologische Zeitbombe tickt 
»Brot für die Welt« fördert deshalb 
Maßßnahmen zur Aufforstung und zur 
Wiedereinführung bodenschonender, 
kostengünstiger Landbausysteme. 
Postfach 476, 7000 Stuttgart 1 
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u wie ich gemeinsam mit Greenpeace zur Erhaltung unserer ka 


Lebensgrundlagen beitragen kann. Schicken Sie mir das 


Informationsmaterial an diese Anschrift: 


Name 


Straße/Nummer 


PLZ/Ort 252491 
Bitte schicken Sie diesen Coupon im Umschlag 

mit 2,40 DM Unkostenbeitrag in Briefmarken an: 
Greenpeace e.V., Hohe Brücke 1, 2000 Hamburg 11 
Spendenkto.:Nr. 2061-206 , Postgiro Hmb., BLZ 200 100 20 |} 
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Unterschiede 


Ich bin seit einigen Monaten Besit- 
zer eines Commodore Plus 4 und 
auch Leser Ihrer Zeitschrift. Weil 
es bei uns in Belgien nicht viel 
Software für diese Computer gibt, 
bestellte ich mir vier Kataloge bei 
verschiedenen Firmen in Deutsch- 
land. Ich bemerkte sofort die gro- 
ßen Preisunterschiede und emp- 
finde es fast als Schwindel, daß 
Kassetten, die sowohl auf dem 
Plus 4 als auch auf dem C16 lau- 
fen, unter verschiedenen Bestell- 
nummern und verschiedenen 
Preisen verkauft werden. Den Vo- 
gel schießt eine Firma ab mit dem 
Spiel Tai-boxing, es kostet 39,95 
Mark für den Plus und bei einer 
Konkurrenzfirma nur 10 Mark. 


Reiner Manz 
Dorf 224 
B-4760 Büllingen 


pankeschön 


Heute darf ich Ihnen ein großes 
Kompliment machen. Sie stehen 
auf der Seite Ihrer Leser. Sie sind 
wirklich unabhängig und vertrau- 
enswürdig. Ändern würde ich an 
RUN nichts, mit einer Ausnahme: 
Zwingt endlich das Gelb raus! 


Günter Müller 
Pfarrkirchen 


g.ösung gegen 
Enttäuschung 


Leider ist es auch uns — trotz nur 
einem Kind — nicht immer mög- 
lich, alle teueren — wenn auch 
sinnvollen — Wünsche zu erfüllen. 
Und so fanden wir in beiderseiti- 
gem Interesse vor geraumer Zeit 
folgende Lösung: 

Seit bereits drei Jahren trägt unser 
Sohn (18 Jahre, 12. Klasse Gymna- 
sium) jedes Wochenende Ilu- 
strierte aus. Das ist nicht immer 
angenehm bei Wind und Wetter, 
treppauf, treppab, bei freundli- 
chen und weniger freundlichen 
Kunden. Aber er kann mit einem 
festen Betrag kalkulieren, den er 
für größere Anschaffungen spart. 
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Und uns ist es möglich, evtl. Fehl- 
beträge zu Weihnachten bzw. Ge- 
burtstagen beizusteuern. (Im übri- 
gen ist dies kein Sonderfall. In un- 
serem Bekanntenkreis wird ähn- 
lich verfahren, denn wo wachsen 
die Bäume schon in den Himmel?) 


Ingrid Kopp, 
5000 Köln 


Jeauc recherchiert 


Mit Freude über Ihren qualifizier- 
ten Informationsstandard zum 
Thema Btx haben wir Ihren Artikel 
im aktuellen „RUN“ gelesen. Wir 
möchten uns jedoch erlauben, Sie 
auf folgende Sachverhalte hinzu- 
weisen: 


— Das Commodore C64-Btx-Inter- 
face können wir zu einem Preis 
von DM 698,— tatsächlich anbie- 
ten. 


— Die Teilnehmerzahl beträgt in- 
zwischen 65 000 Anschlüsse, neue 
Btx-Möglichkeiten machen das 
Medium vom 1.7.87 an für den 
Nutzer noch komfortabler. 


— Bereits ab 1498 Mark bieten 
wir komplette Btx-Terminals mit 
Druckeranschluß, der Einstieg ist 
also wesentlich günstiger als von 
Ihnen geschildert. 


Dennoch haben wir uns über Ih- 
ren gut recherchierten Artikel ge- 
freut und wünschen viel Erfolg bei 
Ihrer weiteren redaktionellen Ar- 
beit. 

Agentur für Btx 


Emanuel Zifreund 
7400 Tübingen 


Grau ist alle 
Theorie 


So wie Sie in Ihrem Artikel das 
Btx-System schildern, so hätten 
wir es auch gerne: komfortabel, 
schnell, bequem. Wir forderten 
also telefonisch einen Antrag an. 
Es kam aber nichts. Wir forderten 
nochmals einen Antrag an. Kaum 
waren zwei Wochen vergangen, 
hielten wir das begehrte Doku- 
ment in Händen. Jetzt konnte es 
losgehen! Und wie! Ein Lieferant 
für Computerzusatzgeräte wirbt 
mit dem Angebot, vier Wochen 


Kesckbirichel NN ee > 


zur Probe sein Gerät zur Verfü- 
gung zu stellen, der Btx-Anschluß 
lasse höchstens eine Woche auf 
sich warten. Als wir nach zwei Wo- 
chen bei der Post anriefen, wußte 
man davon gar nichts: Der Antrag 
war verschludert worden. Wir 
fangen wieder von vorne an. 
Durch Erfahrung gewitzt, rufen 
wir unserem Äntrag hinterher. Ja, 
unserem Antrag gehe es gut, heißt 
es da, er sei schon bei der näch- 
sten Stelle. Auch dort ist unser Än- 
trag angekommen, jetzt warten 
alle nur noch auf den Bautrupp. 
Wieso Bautrupp, wir haben doch 
angekreuzt, daß wir den Anschluß 
mit einem Akustikkoppler betrei- 
ben wollen? Gut, daß wir das sa- 
gen, meint die Dame vom Amt, 
dann ginge es jetzt schneller. Das 
Zusatzgerät haben wir wieder zu- 
rückgeschickt, die vier Wochen 
sind mittlerweile um. Wir konnten 
uns von Form und Aussehen über- 
zeugen, und das Design bewun- 
dern, mehr ging nicht mangels 
Btx-Nummer. 

Doch dann, sechs Wochen nach 
dem ersten Griff zum Telefon, 
wurde unser Alptraum Wirklich- 
keit: Die Nummer war da. Beim 
Eingeben fanden wir allerdings 
keine Gegenliebe, die Leitung 
blieb tot. Ein Anruf bei der Post, 
wie immer mit viel Zeit verbunden 
(„Bitte warten...."), ergab: Unse- 
re Nummer ist noch nicht bei der 
Dateneingabe! Die Dateneingabe- 
stelle erklärt uns daraufhin, die 
Kollegen sollten doch die Num- 
mer mit Telefax rübergeben. Wir 
versuchen den Kollegen zu erklä- 
ren, wie sie schnell und preiswert 
mit der Dateneingabestelle Kon- 
takt aufnehmen können. Die Bur- 
schen haben das aber nicht so 
ganz verstanden, denn es dauert 
weitere 1% Tage, bis die Nummer 
freigeschaltet ist. Großzügig wie 
wir sind, haben wir das dazwi- 
schenliegende Wochenende 
nicht mitgerechnet! Jetzt aber los! 
Denkste! Der Betrieb mit Koppler 
haut nicht hin. Der Monitor stört zu 
sehr. Da helfen auch die FTZ- 
Nummern nichts, die beide Gerä- 
te schmücken. Findige Bastler 
bauen sich jetzt ein Abschirmge- 
häuse, wer solche Ambitionen 
nicht hat, kann den ganzen Krem- 


pel in den Müll hauen. Wir bestel- 
len uns dann als erste Tat ein Btx- 
Verzeichnis für zwölf Mark, um 
darin zu lesen, daß jeder Teilneh- 
mer eines kostenlos erhält. 
Wenn's nicht vergessen wird! Es 
wird wohl öfter vergessen, denn 
via Btx erreicht uns eine Woche 
später der Hinweis auf die kosten- 
lose Zuteilung. Chaos! 

Hat sich's nun ausgezahlt, was wir 
alles eingezahlt haben? Banküber- 
weisungen gehen anstandslos und 
schnell. Der Kontostand ist aktu- 
ell, eingezahlte Gelder wandern 
nicht so lange durch die Listen 
und Bücher wie bisher. Bei der 
Post hat sich nix geändert: Die 
Kontostandszahlen sind bezüglich 
der Aktualität aussagelos, die Zet- 


telwirtschaft im Giroamt macht die 
Btx-Überweisungen auch nicht 
schneller. Da hat immer noch un- 
sere gute Postbotin die rotgefrore- 
ne Nase vorn, wenn sie uns den 
Postgirobrief um 9.00 Uhr in den 
Briefkasten steckt. 


Expeditions-, ung 
LAUCHE&MAAS 

Alte Allee 28 

8000 München 60 


Praxisnähe mit 
Abonnenten 


.. schicke ich Ihnen ein Beleg-Ex- 
emplar unserer neuen Handrei- 
chung für Lehrer. Von der ersten 
Ausgabe der Zeitschrift RUN an, 
bis Januar 1987 einschließlich, ha- 
ben wir alle wichtigen Artikel be- 


rücksichtigt. Die Fülle der Hinwei- 
se auf Ihre Zeitschrift ist nicht nur 
ein Beweis für die Praxisnähe Ih- 
rer Beiträge, sondern soll auch 
dem Lehrer in der Schule auf die 
Notwendigkeit eines Abonne- 
ments der Zeitschrift hinweisen, 
damit er über Neuigkeiten auf 
dem Computermarkt entspre- 
chend informiert ist. 


Wilfried Stascheit 
Oberstraße 31 
4330 Mülheim 


gro: 


. würde mich einmal interessie- 
ren, ob sie noch nicht gemerkt ha- 
ben, daß Btx ... irgendwie tot ist? 


Stefan Nagel 
7140 Ludwigsburg 
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Der Ideen- und Programmierwettbewerb ist zu Ende. Hier sind die Gewinner 


01 ER Christian Drapatz, 4300 Esse 1 
02.) Markus Meurer, 5432 Wirges 
03.) Jan Kusch, 3320 Salzgitter 
04.) Dirk Schniedermeier, 4780 Lippstadt 
08. Uwe Fütterer, 7852 Durmersheim 
06.) Frank Bastian, 7551 Elchesheim- 
Illingen 
07.) Christian Hörnig, 8752 Kleinostheim 
08.) Olaf Panz, 2085 acht 
09.) hear Drapatz, 4300 Essen 1 
10.) Thomas Wenzel, 3250 Hameln 1 
11.) Dirk Ronnau, 4100 Duisburg 
12.) F. Buschfort, 4290 Bocholt 
13.) Horst Schulte, 4790 Neuenbeken 
14.) Udo Müllner, 6929 Kirchhardt 
15.) Roland Richter, 2811 Martfeld 
16.) Ulrich Herbst, 4230 Wesel 
17.) Frank Bastian, 7551 Elchesheim- 
Illingen 
18.) Simon Schmitt, 8000 München 40 
19.) Jörg Emier, 3471 Lauenförde 
20.) Garry Glendon, 6430 Bad Hersfeld 
21.) Paolo Panto, 8000 München 7] 
22.) Reiner Hobbold, 5300 Bonn 
23.) Uwe Hunold, 5942 Kirchhundem 1 
24.) Thomas Decker, Braunschweig 
25.) Thilo von Stillfried, 5983 Balve 1 
26.) Stephan Keilholz, 3422 Bad Lauterberg 
27.) Arnim Hehrig, 6707 Schifferstadt 
28.) Mark Wehrmann, 4224 Hünex- 
29. he Holze 8450 Amberg 
) Stefan Holzer, 
30.) Simon Schmitt, 8000 München 40 
31.) Ulrike Franz, 6531 Oberdiebach 
32.) Michael Werner, 5000 Köln 40 
ee feren, 5800 Hagen 1 
34.) Marko- lo Fux, 2812 Hoya 


35.) Jochen Hammerschmidt, 8034 Ger- 


merin 
36.) Gian , CH-4484 Höhstein 
37.) Marc Schenefeld 4722 a 
38.) Ralf Meier, 7000 eg 
39.) Frank Rosenbach Hamburg 71 
40.) Peter Grätsch, 1000 Berlin 31 
41.) Uwe Fütterer, 7552 Durmersheim 
42.) A. Kemp, 5300 Bonn 
43.) Holger Prang, 4000 Düsseldorf 11 
++ Markus Scherer, 6454 Bruchköbel 2 
45.) Manfred Schiller, 5880 Lüdenscheid 
46.) Rainer Knäpper, 4750 Unna 
47.) Joachim ef '4790 Paderborn 
48.) Nico Meisner, 4403 Senden 
49.) Simon Schmitt, 8000 München 40 
50.) Frank Bastian, 7551 Elchesheim- 


Illingen 
51.) Thorsten Lütkehölter, 5860 Iserlohn 
= .) . wer re ereiing 
) Dietmar Split Asperg 
54.) Frank Köhler, 5060 Bergisch- 


56.) Axel Töpfer, 1000 Berlin 

57.) Klaus Dillinger, 8902 Neusäss 

58.) Michael Tillmanns, 4174 Issum 1 
39.) Oliver Stiller, 5000 Köln 90 

60.) Ivo Herzeg, 6900 Heid. 

61.) Lutz Arnkern, 1000 Berlin 

62.) Thomas Starke, 1000 Berlin 45 

63.) Elmar Licharz, 3500 Kassel 

64.) Erwin Weikert, 8070 

65.) Dieter Kuhlmann, 8720 Schweinfurt 
66.) Christian Högl, A-1160 Wien 

67.) Roland Langwald, 3558 Frankenberg 
68.) Volker Würthele, 7300 Esslingen 
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69.) Karin Liebig, 8501 Feucht 
Maite Kohls, 2070 Ahrensb 


74.) Uwe Fütterer, 7552 Durmersheim 
75. 2 Thomas Harmuth, 4800 Bielefeld 15 
Nürnberg 20 


80. ) Robert . Pieroth, 6052 Mühlheim 
8 2 Michael Weiss, 4130 Moers 1 


1 
.) ünchen 40 
91.) Frank Bastian, '755] Elchesheim- 


Illingen 
= Re ee Gunwald, 3470 Höxter 1 
Simon Schmitt, 8000 München 40 


2 

) Allred for 

101.) Frank 
Illingen 
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Kurs re TERITRARIIELIIUFFIEN 


Jede 
Menge 
Daten im 
Griff 


dBase II zählt zu den leistungsfähig- 
sten Datenbank-Programmierspra- 
chen für CP/M- und MS-DOS-Syste- 
me. Um jedoch die Fähigkeiten voll 
auszunutzen, muß der Programmie- 
rer mit der Befehlssyntax vertraut 
sein. 


In der letzten Ausgabe wurden die wichtigsten Be- 
fehle und Funktionen von dBase II erklärt. Die An- 
weisungen lassen sich entweder im Direktmodus 
oder, in einem Textfile zusammengefaßt, als Pro- 
gramm ausführen. Einige in diesem Heft abgedruck- 
te Listings zeigen, wie einfach die Programmierung 
in ABase ist. 

Nicht immer ist es sinnvoll, Informationen unterein- 
ander zu drucken. Doch die Anweisung ? oder ?? 
läßt keine Wahl. Bei 

? “Neue Zeile“ 

wird der Text „Neue Zeile “ auch tatsächlich in eine 
neue Zeile geschrieben. Die Anweisung 

?? *“ beginnt hier " 

schreibt den Text an das Ende der vorhergehenden 
Zeile. dBase beginnt nämlich bei dem Befehl ? auto- 
matisch eine neue Zeile. Bei der Anweisung ?? aber 
wird der neue Text dorthin geschrieben, wo zur Zeit 
der Cursor steht. 

Mit einem zusätzlichen Befehl kann ein Text oder 
eine Zahl an jede beliebige Stelle des Bildschirms 
geschrieben werden. Die Anweisung 

@ zeile, spalte SAY "Text “ 

bestimmt, daß der Text „Text“ in eine bestimmte Zei- 
le und Spalte geschrieben werden soll. Auf der deut- 
schen Tastatur ist der Klammeraffe @ durch das Pa- 
ragraphenzeichen $ ersetzt. Die Anweisung 
@ 10,20 SAY "Kein Kommentar “ 

schreibt die Zeichenfolge „Kein Kommentar 
le 10 ab der Spalte 20. 


56 QIUM Mai/87 


"in Zei- 


WW NET ERWEISEN 


IETIEETTEA NETTE UT ATTENTAT 


Statt der Zeichenkette sind auch Variablen zugelas- 
sen: 

STORE "Computer “ TO einheit 

@ 10,20 SAY einheit 

Erfreulicherweise können auch die einzelnen Felder 
einer Datei an jede Stelle auf den Bildschirm ge- 
bracht und dort verändert werden: 

USE adr 

ERASE 

@ 10,10 SAY "Der aktuelle Name: 

"“ GET name 

@ 10,10 SAY "Der aktuelle Vorname: 

“ GET vorname 

READ 

Das zusätzliche GET feldname bewirkt, daß dBase 
hinter die ausgegebene Zeichenkette der SAY-An- 
weisung das angesprochene Feld schreibt. Außer- 
dem wird das Feld zur Bearbeitung vorbereitet. Die 
Bearbeitung wird durch READ aktiviert. 

Mit diesen Befehlen hat der Programmierer weitge- 
hende Gestaltungsfreiheit. Verzichtet er auf das 
READ, werden die Felder nur angezeigt. In diesem 
Fall sollte mit CLEAR GETS dBase mitgeteilt werden, 
daß die Felder nicht mehr bearbeitet werden sollen. 
Jede Folge von GET muß entweder durch READ zum 
Editieren benutzt oder durch CLEAR GETS abge- 
schlossen werden! 

Bei den Befehlen EDIT und APPEND wählt dBase 
eine schlichte Darstellung der einzelnen Felder. 
Nicht immer sind die so dargebotenen Informationen 
übersichtlich genug. Da dBase nicht wissen kann, 
wie die Daten dargestellt werden sollen, überläßt es 
die Formatierung des Bildschirms dem Program- 
mierer. 

Eine solche Format-Datei kommt mit den Anweisun- 
gen 

@ zeile, spalte SAY "Text “ GET feldname 

aus. Diese Dateien sollen die Erweiterung .fmt ha- 
ben. Die unten stehende Darstellung erleichtert die 
Berechnung der Zeilen- und Spaltenpositionen. 

Die Datei könnte zum Beispiel so beginnen: 


@ 2,30 SAY "Adressen" 
@ 4,10 SAY "Name: " GET name 


ı 11111111122222222223333333333444444444455555355556 
hasuseran0inhusen901nBuB0T09012BaBETRSOLSSESETRIOLRIUBETENS. 


Adressen { ee 


‚Bun 


SE 


Bild 1: Arbeiten mit Format-Dateien. 


Die Datei sollte zunächst mit 

DO adr.fmt 

ausprobiert werden. Ist alles in Ordnung, kann 
dBase mitgeteilt werden, daß diese Datei von jetzt an 


die Ausgabe bei dem Befehl EDIT und APPEND 
steuern soll: 

SET FORMAT TO adr 

Geben Sie nun EDIT ein, wird Ihre Bildschirmmaske 
benutzt. Solange das SET FORMAT aktiv ist, kann die 
Datei nicht editiert werden. Die Verbindung wird mit 
der Anweisung 

SET FORMAT TO 

gelöst. 

Es gibt also zwei Möglichkeiten, einen Datensatz in 
einem Programm zu bearbeiten: Entweder wird mit 
DO datei eine Datei ausgeführt, die aus Befehlen 
nach dem Schema 

@ zeile, spalte SAY ... GET... 

besteht und die GETs mit READ aktiviert. Dieses 
Verfahren hat den Vorteil, daß die Programmierer in 
der Datei zusätzliche Befehle unterbringen können 
und nicht an den EDIT-Befehl gebunden sind. Ande- 
rerseits vereinfacht eine FORMAT-Datei und SET 
FORMATTO ... die Programmierung. 


dbase ä la carte 
ER RRET 


In anspruchsvollen Programmen hat der Endanwen- 
der die Möglichkeit, zwischen verschiedenen Teil- 
programmen zu wählen. Er betrachtet sozusagen ein 
Menü, aus dem er mit Tastendruck auswählt. 


Bild 2: Die Struktur der Datenbank ADR.DBF. 


So etwas läßt sich auch in dBase realisieren. Ein ein- 


faches Beispiel macht die Vorgänge deutlich: 
* Programm Menue 

* Bildschirm loeschen 

* Menue drucken 

@5,0 

?“ Erste Meldung" 

?" Zweite Meldung" 

?“ Dritte Meldung“ » 

* Tastendruck des Anwenders abwarten 
ACCEPT " Sie wünschen? " TO antwort 


* Da sowohl Groß- als auch Kleinbuchstaben mög- 


lich: 


* Umwandlung der Kleinbuchstaben in Großbuch- 


staben 
STORE !(anwort) TO antwort 
* Behandlung der Fälle 


WIN ESTER WER N 
u a 2 wi a 


DO CASE 
CASE antwort = "E" 
? „Sie haben die erste Meldung gewählt“ 
CASE antwort = "Z" 
? „Sie sehen Meldung Numero zwei!" 
CASE antwort = "D" 
? „Die dritte Meldung " 
OTHERWISE 
? "Sie sollten E, Z oder D wählen!“ 
ENDCASE 
Mit der Befehlskombination 
DO CASE 
CASE bedingung 
ENDCASE 
wird eine Behandlung unterschiedlicher Fälle 
durchgeführt. Ist die Bedingung hinter CASE wahr, 
so werden alle Befehle bis zum nächsten CASE, 
OTHERWISE oder ENDCASE ausgeführt. Sobald 
eine Bedingung erfüllt und die dazugehörigen Befeh- 
le abgearbeitet sind, wird zum Wort ENDCASE ge- 
sprungen. 
Sollte keine der Bedingungen wahr sein, werden die 
Anweisungen hinter OTHERWISE ausgeführt. 
Werden statt der kurzen Bildschirmausgaben in un- 
serem Beispiel längere Programme eingefügt, kön- 
nen umfangreiche Programme gestaltet werden. 
Manchmal endlos: Schleifen 
Das obige Beispielprogramm wird leider nur einmal 
durchlaufen und dann abgebrochen. dBase kann 
aber eine Reihe von Befehlen so lange ausführen, 
wie eine bestimmte Bedingung erfüllt, also wahr ist. 
Bei der Befehlsfolge 
DO WHILE bedingung 


rer 


wird zunächst die Bedingung geprüft. Ist das Ergeb- 
nis wahr (in dBase heißt wahr auch .T.), werden die 
Befehle direkt nach dem DO WHILE ausgeführt. 

Stößt dBase nun auf die Anweisung ENDDO, springt 
es wieder zum DO WHILE zurück. Erneut wird die 


Bild 3: Die Format-Datei zum Beispielprogramm. 
Bedingung geprüft. Ist sie wahr, werden die folgen- 
den Befehle erneut ausgeführt. 
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Sollte die Bedingung aber falsch sein, fährt das Pro- 
gramm nach dem ENDDO fort. 
Das folgende Programm zählt bis 10 und bricht dann 
den Zählvorgang mit einem Seufzer ab. 
STOREO0TO a 
DO WHILE a < 10 

ERASE 

?a 

a=a+tl 
ENDDO 
? "Geschafft, ich habe bis 10 gezaehlt!“ 
Kontrolliert: dBase wird programmiert 
Zum Abschluß eine Schritt-für-Schritt-Programmier- 
anleitung für eine einfache Adreßverwaltung. Das 
fertige Listing steht auf Seite 60. 
Eine Adreßverwaltung sollte alle Anschriften alpha- 
betisch nach Namen oder Vornamen sortiert bereit- 
halten. Außerdem sollte das Programm Erweiterun- 
gen der Datei zulassen und ein bequemes Blättern 
ermöglichen. Weitere Funktionen (wie zum Beispiel 
Suchen) sollen leicht erweiterbar sein. 
Selbstverständlich soll das Programm optisch ein- 
wandfrei auf dem Bildschirm erscheinen. Dazu wird 
eine Programmdatei benötigt, die sowohl die jeweili- 
ge Adresse als auch das Auswahlmenü auf den Bild- 
schirm bringt. 
Obwohl hier eine Format-Datei mit SET FORMAT 
einsetzbar ist, sollte besser ein kleines Programm 
verwendet werden, das später immer wieder mit DO 
formatprogramm aufgerufen wird. Dadurch wird die 
Programmierung des Hauptprogramms einfacher. 
Mit einer Formatdatei, die mit SET FORMAT TO akti- 
viert wird, wird zwar der Umgang mit EDIT und AP- 
PEND vereinfacht, die Funktion „Anzeigen eines Ein- 
trags ohne Editieren“ ist aber so kaum zu realisieren. 
Zunächst wird die Struktur der Adreßdatei festge- 
legt. In der Datei sollte der Name, Vorname, die 
Straße, Postleitzahl und Ort sowie die Telefonnum- 
mer enthalten sein. 
Die Anrede (Herr/Frau/Dr./Firma) und ein Kennzei- 
chen, das Auskunft über das Geschlecht gibt, sollten 
ebenfalls nicht fehlen. Es reicht, wenn in die Datei 
das Feld „Kennzeich“ mit nur einem Buchstaben In- 
halt eingerichtet wird. Die Abkürzungen m für männ- 
lich, w für weiblich und f für Firma sind aussagekräf- 
tig und eindeutig genug. Mit diesen Veränderungen 
können später bequem Serienbriefe mit der Datei 
angefertigt werden, da in der Datei Informationen 
über die richtige Anrede enthalten sind. 
Mit 
MODIFY STRUCTURE adr 
kann die Struktur einer Datei aufgebaut, aber auch 
die einer bestehenden Datei verändert werden. 
Beim Modifizieren werden aber alle Daten gelöscht! 
Vor der Veränderung kopiert man daher die Datei in 
eine Hilfsdatei und fügt nach der Modifikation die 
Daten aus dieser Datei mit APPEND FROM wieder in 
die Hauptdatei ein. Nach der Modifikation sollte die 
Datei, wie Bild 2 zeigt, aufgebaut sein. 
Als nächstes wird die Datei adrfmt.prg aufgebaut. 
Sie ist für die Bildschirmsteuerung zuständig. Bild 3 
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zeigt, wie die Maske aussehen sollte. 
In den Zeilen 10 und 11 erscheint das Menü, aus dem 
der Anwender die gewünschte Option durch Einga- 
be des ersten Buchstabens auswählen kann. Dabei 
bedeutet N ame und V orname die Sortierung nach 
Name beziehungsweise Vorname. Das Programm 
arbeitet mit zwei getrennten Indexdateien. Der aktu- 
ell gewählte Index wird in der ersten Zeile mit „Indi- 
ziert nach .... “ angezeigt. 
Nun fehlen uns die beiden Indexdateien. Da sowohl 
nach dem Namen als auch nach dem Vornamen sor- 
tiert werden soll, heißen die beiden Indexdateien 
name und vorname. In einer Adreßverwaltung kön- 
nen die gleichen Namen bzw. Vornamen häufig vor- 
kommen. In diesem Fall soll zunächst nach dem ei- 
nen, bei Namensgleichheiten dann nach dem zwei- 
* Format-Programm adrfmt.prg Be e 
2,10 SAY "Adressverwaltung rev. 1.0” te I 


2,40 SAY "Indiziert nach Baktiniae bi 
Leerzeichen loeschen [ alten 


en auf Bildschirm 
GET n 


@ 
. 
” 
ei 
‚@ 4,1 SAY "Name: ” 
'@ 4,40 SAY "Vorname: " er orale 
wie SAY "Anrede: " GET anrede 3 
@ 6,30 SAY "Bezeichnung w/n/£: " Out hanngssch 
'@ 8,1 SAY "Strasse: " GET strasse 4 
@ 10,1 SAY "Ort: ” ar > ° - . 
® 20.38 F 
= 2, SAY Telefon; „om Keieten Bl >. RE 
| "Menue: eren ornane" 
ea ar Q uit R R ückwärts" 


Bild 4: Abfragen mit GET 


ten Kriterium sortiert werden. Daher wird ein kombi- 
nierter Index aufgebaut. 

Das Hauptprogramm gliedert sich in drei Hauptteile: 
1. Voreinstellungen vornehmen 

2. Hauptschleife mit Menü 

3. Abschluß: Zurücknehmen einzelner Setzungen 
Beim Punkt 1 wird dBase veranlaßt, die Indizes auf- 
zubauen, wenn sie noch nicht vorhanden sind. Mit 
dem Befehl | 
‚NOT. FILE(name.erw) | 
kann geprüft werden, ob eine Datei im aktuellen In- 
haltsverzeichnis vorhanden ist. Ist dies der Fall, gibt 
der Befehl die logische Aussage „wahr“ zurück. | 
Die Befehlssequenz könnte in deutscher Sprache for- 
muliert so aussehen: | 
WENN index name nicht existiert 

erzeuge Index name 

ENDE der Bedingung 

Nun beginnt die Hauptschleife. Sie ist eine DO 
WHILE ... ENDDO Konstruktion. Als Bedingung be- 
währt sich eine Variable, die als Voreinstellung den 
Wert wahr enthält. Im Verlauf der Hauptschleife 
kann diese Variable auf falsch gesetzt werden, wor- 
auf das Programm elegant beendet wird. 

In der Hauptschleife soll zunächst der Anwender um 
die Eingabe einer Option gebeten werden. Da der 
Anwender sowohl Groß- als auch Kleinbuchstaben 
eintippen kann, wird die Eingabe sofort in einen 
Großbuchstaben umgewandelt. | 
Die Eingabe kann nun mit DO CASE ... ENDCASE 
abgearbeitet werden. Der allgemeine Aufbau lautet: 
STORE .T. TO haupt 


DO WHILE haupt 
@ 22,0 
STORE " “ TO antwort 
ACCEPT "Sie wuenschen? “ TO antwort 
STORE I!(antwort) TO antwort 
DO CASE 


ENDCASE 
ENDDO 
Nach fast jeder Option muß der Bildschirm mit DO 
adrfmt.prg wieder aufgebaut werden. Dabei müssen 
die GETS wieder zurückgesetzt werden, indem ent- 
weder ein CLEAR GETS oder ein READ ausgeführt 
wird. 
Tips und Hinweise 
Bei der Option N ame und V orname soll der Index 
umgeschaltet werden. Leider geht dBase an den An- 
fang der Datei, wenn eine neue Indexdatei mit SET 
INDEX TO name aktiviert wird. Daher wird vor dem 
Umschalten die Satznummer festgestellt und in einer 
Variablen (zum Beispiel eintrag) gespeichert. Nach 
dem Umschalten veranlaßt das Programm dBase, zu 
dem Eintrag mit dieser Nummer zu gehen. Allge- 
mein formuliert sieht die Sequenz so aus: 
STORE TO eintrag 
SET INDEX TO vorname 
STORE "Vorname “TO aktindex 


GO eintrag 

Wenn in einem Programm mit SKIP das Ende der Da- 
tei erreicht wurde und dieser Befehl mehrmals wie- 
derholt wird, steigt dBase mit einer Fehlermeldung 
aus. Es passiert folgendes: Mit dem Befehl SKIP blät- 
tert dBase wie in einem richtigen Karteikasten. Mit 
der Anweisung GO BOTTOM geht dBase zur letzten 
Karteikarte. Folgt nun ein SKIP, wird auch diese Kar- 
te umgeblättert, und dBase „betrachtet" den leeren 
Karteikasten. Jetzt erst ist dBase am Ende der Datei 
angelangt und setzt die Variable EOF auf „wahr“. Je- 
des weitere SKIP kann nicht mehr ausgeführt wer- 
den. Daher muß nach jedem SKIP abgefragt wer- 
den, ob dBase das Ende der Datei erreicht hat. Ist 
das der Fall, veranlaßt das Programm dBase, mit GO 
BOTTOM an das tatsächliche Ende der Datei zu 
springen. 


Die Lösungen 

Das folgende Programm verwendet die im dBase-II- 
Kurs erklärten Befehle. Es stellt eine einfache 
Adreßverwaltung dar. Die Befehlsdatei zur Ein- und 
Ausgabe von Datensätzen zeigt Bild 4. 

Da der Bildschirm im Verlauf des Programms immer 
wieder neu aufgebaut wird, ist die Auslagerung der 
entsprechenden Befehlsfolge sinnvoll. So brauchen 


diese Befehle nur einmal geschrieben zu werden $ 


Fortsetzung von Seite 2] 

weitergegeben, die dann ein sichtbares Bild erzeu- 
gen. 

FBAS-Signal 

FBAS (Farbart-Bildinhalt-Austast-Synchron) ist eben- 
falls ein Videoeingangstyp, der aus Farb- und Hell- 
Dunkel-Signalen sowie Synchronisationssignalen be- 
steht. Diese Informationen werden vom Computer 
zusammengesetzt und an den Monitor übertragen, 
der sie entschlüsselt und weiterverarbeitet. Die Zu- 
sammenschließung im Rechner und Entschlüsselung 
im Monitor erfolgen über Decoder-Schaltungen. Sol- 
che Übertragungen führen teilweise zu Verlusten 
oder Verfälschungen der Bildschirmdaten. Das ur- 
sprünglich saubere Signal vom Computer ist äuße- 
ren Einwirkungen (starken magnetischen Feldern) 
ausgesetzt. Bei höheren Auflösungen kommt es zu 


verschwommenen Bild- und falschen Farbinformatio- 


nen. 
RGB-Signal 

Das RGB-Signal beinhaltet die Daten für die jeweili- 
gen Farbanteile der Grundfarben. 


Luminanz ist fast identisch mit BAS. Hier wird die 
Helligkeitsinformation eines Bildes übernommen 
und weiterverarbeitet. 
üsse 

Um den C64 beziehungsweise C128 an einen 
Schwarzweiß- oder Farbfernseher anzuschließen, 
benötigt man ein einfaches Antennenkabel. Der Auf- 
wand vergrößert sich beim Anschluß an einen Moni- 
tor und ist von Typ zu Typ verschieden. Über einen 
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Cinch-Stecker erhält der Monitor ein FBAS-Signal. 
Weiterhin kann ein solcher Anschluß zum Übertra- 
gen von Audio-Signalen (Ton) benutzt werden. Eini- 
ge Monitore holen sich die Bildinformationen über 
zwei Eingänge, den Luminanz- und den Chroma-Ein- 
gang. Das Luminanz-Signal enthält die vollständigen 
Bilddaten (hell/dunkel), Chroma hingegen Farbin- 
formationen (RGB). Diese drei Signalträger werden 
über einen 8poligen DIN-Stecker mit dem Computer 
verbunden (C64, C128 und Amiga). Am DIN-Stecker 
liegen die Luminanz, Masse, Audio In, Audio Out, 
Video Out und Chroma Signale an. Der Rechner 
stellt zum Anschluß eine Audio/Video-Buchse zur 
Verfügung. Der C128 verfügt zusätzlich über einen 
Cannon-Anschluß (nicht mit dem Joystickport ver- 
wechseln!), Dieser überträgt folgende Signale: RGB 
(getrennt), Intensität, horizontale und vertikale Syn- 
chronisation. Der Cannon-AÄnschluß ist bei einigen 
Monitoren ebenfalls als Signaleingang vorhanden. 
Die Belegungen sind für Monitore genormt. Am uni- 
versellsten ist der Scart-Eingang (Euro-Anschluß). Er 
ist in der Lage, alle Signale zu empfangen. Diese 
sind zum Beispiel beim Amiga Farbmonitor Audio, 
FBAS (Video), RGB (getrennt), Austastung und Masse 
für jeweils eines der Signale. Da die Signale sauber 
getrennt sind und nicht erst dekodiert werden müs- 
sen, ist die Übertragung ausgezeichnet. Ein Monitor 
mit Scart-Eingang kann folglich als ideal angesehen 
werden, da die Darstellung von 80 Zeichen pro Zeile 
klar und deutlich erfolgt. 


(D. Zendeh) EEEIEHEEEEEE 
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* Programm adr.prg 


* Setze Doppelpunkte in Feldern auf "aus" 
SET COLON OFF 


“* Setze Bildschirmausgabe durchgefuehrter Befehle aus 
SET TALK OFF 


* Setze Variable aktindex auf "Name" für Indexwahl 
STORE "Name" TO aktindex 


* Aktiviere Datei adr.dbf 
USE ADR 


* Loesche Bildschirm 
ERASE 


* Bilde Index NAME, falls nicht schon vorhanden 
IF .NOT. FILE('name.ndx') 

* Kombiniere name und vorname TRIM schneidet 

* ueberfluessige Leerzeichen ab 

INDEX ON TRIM(name) + TRIM(vorname) TO name 
ENDIF 


* Bilde Index VORNAME, falls nicht schon vorhanden 
IF .NOT. file('vorname.ndx') 

INDEX ON TRIM(vorname) + TRIM(name) to vorname 
ENDIF 


* Aktiviere Index NAME mit oben gesetzter 
* Variable aktindex (= aktueller Index) 
SET INDEX TO &aktindex 


* Setze Hauptschleife 
STORE T TO haupt 


* Baue Bildschirm auf und loesche GETS 
DO adrfnmt 
CLEAR GETS 


* Beginne Hauptschleife 
DO WHILE haupt 


* Setze Cursor auf Zeile 22 
@ 22,0 


“* Setze neutrale Antwortvorgabe 
STORE “ " TO antw 


* Erfrage Antwort des Anwenders 
ACCEPT "Sie wuenschen? " TO antw 


* Wandle Antwort in Großbuchstaben 
STORE !(antw) TO antw 


* Beginne Abarbeitung der moeglichen Antworten 


Bild 5: Das dBasell-Hauptprogramm 


und können von verschiedenen Stellen mit DO 
adrfmt gerufen werden. 


Als Besonderheit verfügt das Programm über zwei 
Indexdateien (Name und Vorname), die wahlweise 
benutzt werden. Somit läßt sich nach Namen als auch 
nach Vornamen suchen. Bei der Eingabe mit dem 
dBase-Editor dürfen die Kommentarzeilen nicht mit 
eingegeben werden, da das Programm sonst mehr 
als 4000 Zeichen lang wird. Möchte man auf die Be- 
merkungen nicht verzichten, muß man das Pro- 
gramm mit einem Texteditor oder Textprogramm be- 
arbeiten. Das Hauptprogramm zeigt Bild 5. 


Es hat sich gezeigt, daß dBase eine sehr leistungsfä- 
hige Datenbank-Programmiersprache ist. Mit dem 
mächtigen Befehlssatz lassen sich Spezialanwendun- 
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DO CASE 
CASE antw = "Q" 
* Abbruch der Hauptschleife durch setzen 
* der Variablen Haupt auf "falsch" 
* siehe oben: DO WHILE haupt! 
STORE £ TO haupt 


CASE antw = "E"” 
CLEAR GETS 
DO adrfnmt 
READ 


CASE antw = "N" 
* Merke die Nummer des aktuellen Eintrags 
STORE # TO eintrag 


* Setze Index neu mit Variable aktindex 
STORE "Name" TO aktindex 
SET INDEX TO &aktindex 


* Gehe zurück zum aktuellen Eintrag 
GO eintrag 

DO adrfmt 

CLEAR GETS 


CASE antw = "V" 
STORE # TO eintrag 
STORE "Vorname" TO aktindex 
SET INDEX TO &aktindex 
GO eintrag 
DO adrfmt 
CLEAR GETS 


CASE antw = "W" 
SKIP 


* Falls Ende der Datei erreicht 
IF EOF 
GO BOTTOM 
ENDIF 
DO adr£fmt 
CLEAR GETS 


CASE antw = "R" 
SKIP -1 
DO adrfmt 
CLEAR GETS 


ENDCASE 


* Hauptschleife zu Ende 
ENDDO 


* Zurücknehmen aller Setzungen: 
SET TALK ON 
SET COLON ON 


gen schnell realisieren. Zwar ist die Programm-Syn- 
tax für Basic-Programmierer am Anfang etwas unge- 
wohnt, dennoch dürfte die Einarbeitung für Pro- 
grammiersprachen-Interessierte nicht schwer fallen. 
Zukünftig wollen wir uns dem Thema dBase-II-Pro- 
grammierung öfter zuwenden. Wer Tips, kurze Rou- 
tinen oder pfiffige Programme auf Lager hat, kann 
sie gerne an die Redaktion schicken. Bei einer Ver- 
öffentlichung gibt's selbstverständlich ein angemes- 
senes Honorar. 


CW-Publikationen, Redaktion RUN 
Kennwort: dBase 
Postfach 40 04 29 
8000 München 40 


(pv) 


[ 
- /, d@' BETRIEBSSYSTEME 
IMEXPANSIONSPORT 


Wer in seinen C64 oder C128 verbesserte Betriebssysteme einbauen wollte, war bislang 
gezwungen das Kernal-IC im Rechner auszulöten, was unweigerlich zum Garantieverlust 
führte. Das Kernal-Modul im Expansionsport schafft Abhilfe und bietet folgende Features: 


— 100prozentige Kompatibilität zu Betriebssystemen die im Rechner eingebaut werden. 
Die Modul-Platine führt den Kernal-Sockel im Rechner quasi nach außen. Das Original- 
Kernal im Rechner muß nicht mehr ausgelötet bzw. gesockelt werden. 

— Teure Betriebssystem-Umschaltplatinen werden überflüssig: Auf der Modul-Platine las- 
sen sich Eproms mit bis zu 32K Speicherkapazität unterbringen — Platz für vier ver- 
schiedene Betriebssysteme zwischen denen beliebig umgeschaltet werden kann. 

— Das Modul arbeitet problemlos mit allen gängigen Hardware-Erweiterungen für den 
C64 zusammen. 


(Ausführliche Beschreibung des Moduls siehe RUN 3/87) 
Das Super-Modul ist zum Preis von 110 DM erhältlich bei 


Run-o-thek, Postfach 40 04 29, 8000 München 40 


Bei Bestellung den Betrag per Scheck einsenden und die Bestellnummer 309 angeben! 


MACHINE 


Mit DeLuxe VIDEO (von Electronic Arts) 
und dem DESIGNER CONSTRUCTION 
SET wird Ihr Amiga zum Filmstudio. 
Profi-Designer liefern Ihnen auf 2 Disket- 
ten Bilder, Objekte, perfekt animierte 
Frames und einen Videoclip, der Ihrer 
Kreativität freien Spielraum läßt. Story- 
board (von Jimmy Stepanoff, einem Zeich- 
ner der „Unendlichen Geschichte“) und 
2 Handbuch mit vielen, ausführlich er- 
klärten Tricks, ergänzen das Set. 


APOCALYPSE 
Vor der traumhaft schönen Kulisse Afrikas 
vollzieht sich ein Drama, das zum Untergang 


des Pfaneten führt. Über 80 Bilder und Objekte. 
FR Seien‘ 1001 * 2 Disketten « DM 98,- 


Eine fantastische Zeitreise durch die Unend- 
lichkeit des Alls. Mit 3D-Sequenzen, digitalisier- 
ten Objekten und vielen neuen Tips. 

Bestellnr. 1002 * 2 Disketten + DM 98,- 


Versand nur per Nachnahme 


Fa. G. Lechner * 8000 München 60 * Roseggerstraße 1 Händleranfragen erwünscht 


Mai/87 um 61 


WUW.MONBSOHNBUTBRWERLD COM, 


Wenn man den Variablenspeicher in den Bildschirm 
verlegt, kann man beobachten, wie der Computer 
die einfachen Variablen A, A, A$ und FNA verwal- 
tet. Er verschlüsselt sie in Gruppen von je sieben 
Bytes und legt sie in der Reihenfolge ihres Auftre- 
tens in einer Tabelle ab, deren gerade gültige An- 
fangs- und Endadressen bei den Zeigern 45/46 und 
47/48 abgefragt werden können. Zeiger sind Byte- 
paare in der Zeropage (den ersten 256 Bytes des 
Computerspeichers), aus deren niederem (L) und 
höherem (H) Byte sich eine Adresse so errechnet: 
AD=L+256xH. In Bild 1, das die Lage der einzelnen 
Speicherbereiche zeigt, sind rechts die Zeiger ein- 
gezeichnet. Die Formel Y(Z) = 4xZ12 bedeutet, daß 
für jeden Zahlenwert von Z, der unabhängigen (frei 
wählbaren) Variablen, mit der Rechenvorschrift auf 
der rechten Seite ein Zahlenwert für die abhängige 
Variable Y berechnet werden kann. Gibt man Z den 
Wert 3, dann ist Y(3) = 4x312 = 36. 

Die Zahl in der Klammer gibt an, für welches Z der 
berechnete Y-Wert gilt. 


Erg A 


In Bas Kir FR en so definiert: 

10 DEF FNY(Z)=4x*212. 

Die linke Seite sagt aus: 

Hiermit DEFiniere ich die FUNktion Y von Z. 

Für Z=3 erhält man das zugehörige Y(3) durch die 
Basic-Zeile: 

20 PRINT FNY(3). 

Natürlich darf eine solche Fragezeile im Programm 
nie vor der Definitionszeile stehen, sonst gibt es den 
„undefined function error“. 

Was geschieht im Speicher, wenn eine Funktion defi- 
niert und aufgerufen wird? Da Funktionen nicht im 
Direktmodus definiert werden dürfen, braucht man 
ein kleines Basic-Programm, das fix und fertig im 
Programmspeicher stehen muß, bevor der Varia- 
blenspeicher in den Bildschirm verlegt wird. 

10 def fny(z)=3*ztat2t2at2t2 

20 2z=4 

30 ?fny(2/3) 

Zeile 20 soll zeigen, daß der Name der Variablen in 
der Klammer, die man Dummy-Variable nennt, 
gleichzeitig auch für eine gewöhnliche Variable ver- 
wendet werden kann, die ihren Wert ungestört bei- 
behält. Die definierte Funktion wurde absichtlich so 
kompliziert gemacht, damit etwas mehr Zeit für die 
Beobachtung zur Verfügung steht. 

Es gibt übrigens zwei einfache Methoden, mit denen 
man Verzögerungen programmieren kann: 


TIP +18 Kurze Verzögerungen erzeugt dieser Be- 
fehl 

a= Sr2.. ‚t212 . Jede Potenzierung benötigt etwa 
30 ms. 


TIP #16 Verzögerungen im Sekundenbereich er- 
hält man mit dieser Schleife: for i- 1 to 1000: next iS 
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In dieser Folge stehen zunächst die 
Funktionsvariablen im Blickfeld. Sie 
werden selten benutzt, weil niemand 
so recht weiß, wie sie angewendet 
werden. Ein bißchen Mathematik 
hilft, diesen sehr nützlichen Varia- 
blentyp besser zu verstehen. 


Tausend Durchläufe dauern etwa 1,3 Sekunden. 

Zur Verlegung des Variablenspeichers in den Bild- 
schirm, die in den früheren Folgen mehrfach prakti- 
ziert wurde, gibt man ein: 
poke 45,0:poke 46, 12:clr. 
Die Variablentabelle beginnt also bei der Adresse 
0+12x256=3072, und das ist genau die linke obere 
Ecke des Bildschirms. Da keine Strings beobachtet 
werden sollen, braucht die Speichergrenze (Zeiger 
55/56) nicht verlegt zu werden. Das CLR sorgt dafür, 
daß das Betriebssystem sich auf die neue Speicher- 
einteilung einstellen kann. 

Nun wird der Kleinschreib-Modus eingeschaltet, da- 
mit man die Bildschirmdarstellung des Speichers 
besser entziffern kann, und der Bildschirm mit der 
CLR/HOME-Taste gelöscht. Nachdem man den Cur- 
sor ein paar Zeilen nach unten geführt und das klei- 
ne Basic-Programm mit RUN gestartet hat, erschei- 
nen oben auf dem Schirm zwei Siebenergruppen. 
Zuerst die Funktionsvariable, die man an dem inver- 
sen ersten Namenbyte erkennt, und dann die Fließ- 
kommavariable z, mit dem Wert 4, der ihr in Zeile 20 
zugewiesen wurde. Wie in Folge 2 ausführlich be- 
sprochen wurde, ist die Fließkommadarstellung der 
Zahl 4 im Bildschirmcode (Handbuch Seite 213) ein 
inverses kleines c, gefolgt von vier Klammeraffen 
(Nullen). — Auch ohne Zeile 20 wäre für zein Platz re- 
serviert worden. Alle Zahlenbytes hätten dann den 
Wert Null gehabt. — In der Mitte des Schirms wurde 
der gesuchte Funktionswert fny(2/3) ausgedruckt. 
Das 3. und 4. Byte (1=12 und p= 16) der Funktionsva- 
riablen enthalten einen Zeiger auf den Beginn der 
Definition im Programmspeicher, genauer gesagt, 
auf die Stelle hinter dem Gleichheitszeichen. Die 
Adresse, auf die dieser Zeiger deutet, ist 
12+16*256=4108. Mit print peek(4108) kann man 
den ASCII-Wert dieser Speicherstelle abfragen. Das 


Speicheraufbau des C18 und Plus/4 
Adresse 


————— 
PLUS/4: 64 768 
C16: 16 374 


En ZZ nz 205 


41/48 


256 
0 
Bild 1: Speicheraufbau des C16 und Plus/4 


Ergebnis ist 5l, und die ASCII-Tabelle (Handbuch 
Seite 215) zeigt, daß es sich um eine '3’ handelt, das 
erste Zeichen der Funktion y. Zur Kontrolle sollte 
man auch die vorhergehende Speicherstelle ausle- 
sen, die die Zahl 178 enthalten muß. Wie in der näch- 
sten Folge gezeigt wird, ist das das Token (Symbol) 
des Befehlsworts 'Gleichheitszeichen'. 

Das 5. und 6. Byte (i=9 und 1= 12) enthalten ebenfalls 
einen Zeiger, und zwar die Adresse des ersten Zah- 
lenbytes der Dummy-Variablen z. 

9+12x256=3081 ist die 10. Stelle des Bildschirms, 
und genau dort ist das inverse kleine c zu sehen. 
Das 7. Byte der Funktionsvariablen enthält das erste 
Zeichen der definierten Funktion, also die '3'. Dieses 
7. Byte ist redundant, zu deutsch überflüssig. Die 
Funktion wird auch gefunden, wenn man mit dem 
Cursor in die oberste Zeile fährt und aus der '3’ zum 
Beispiel eine '8' macht. Nach der Änderung führt 
man den Cursor wieder nach unten und gibt ein: 
print fny(2/3). Es wird der gleiche Zahlenwert ausge- 
druckt wie nach RUN. 

Wenn man gut aufpaßt, sieht man bei der Abfrage 
von fny die Zahlenbytes von z in der Variablentabel- 
le blinken. Zur genauen Prüfung geht man mit dem 
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Cursor noch einmal auf den letzten Print-Befehl und 
konzentriert sich, während man die Return-Taste 
drückt, auf die Zahlenbytes. Während der Rech- 
nung ändert die Variable ihren Wert. Trotz der rela- 
tiv langen Rechenzeit ist er schwer zu erkennen. 
Man darf aber vermuten, daß es sich um die Fließ- 
komma-Darstellung von 2/3 handelt. Und wie sieht 
die aus? Einfach a=2/3 eingeben, dann steht sie in 
der Variablentabelle! Damit der ursprüngliche Wert 
von z nicht verlorengeht, wird er in der Zeropage 
zwischengespeichert und steht nach der Rechnung 
wieder zur Verfügung. 

Drei Beispiele sollen Anregungen für den prakti- 
schen Gebrauch der Funktionsvariablen geben. Be- 
vor man sie ausprobiert, wird der Rechner mit der 
Reset-Taste in den Normalzustand versetzt. 


Tip #17 Für den Lottoschein sollen sechs Zufalls- 
zahlen zwischen | und 49 erzeugt werden: 

10 def fny(z)=int(49* rnd(1)+ 1) 

20 for i= 1to6:?fny(O),:next 


In dieser Funktion kommt übrigens die unabhängige 
Variable z auf der rechten Seite gar nicht vor. Es ist 
daher gleichgültig, welche Zahl in die Klammer von 
fny geschrieben wird, ähnlich wie bei fre(0). Daher 
der Name Dummy-Variable (dummy bedeutet im 
Englischen Attrappe oder Strohmann). 

Der Name der Funktion, hier y, muß dagegen beim 
Aufruf der Funktion exakt angegeben werden. Bei 
mehreren Funktionen muß jede einen eigenen Na- 
men haben. Woher sollte sonst der Computer wis- 
sen, an welche Rechenvorschrift er sich zu halten 
hat? 

2. Beispiel. Rundung von Zahlen auf n Nachkomma- 
stellen. 


Tip #18 Wenn man am Anfang eines Programms 
die Rundungsformel definiert, kann man an ver- 
‚schiedenen Stellen des Programms darauf zurück- 
greifen. 

lOn=2 

20 def fnru(z)=int(10Otn#*z+ .5)/10tn 


50 print fnru(11.10*1.14) „dm“ 


70 n=3: a=5.7*1.234 
80 print fnrufa) "kg" 
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Wie man sieht, dürfen in der Klammer auch Rechen- 
operationen (Zeile 50) und beliebige Variable (Zeile 
80) stehen. 

Funktionsdefinitionen dürfen nicht länger sein als 
eine Basic-Zeile, also 80 Bytes, aber sie lassen sich 
verketten, so daß man die kompliziertesten Formeln 
zusammenbauen kann. 


10REM FUNKTIONS-DEMO 
Er GEDAEMPFTE SCHWINGUNG 


"SODEFFNAIM = = 90* EXP(—T/100) 
a FNAAT) = = FNAI(M)»(COS(T/10)) 


TOGRAPHIC 1,1: DRAW, 319,100 TO 0,100 
80 FORT=1 TO 319: DRAW TO T, 100-FNAZT) : 


„0 FOR Mei TO 319 STEP 5 DRAW. 
T,100-FNAI(T) : NEXT 
100 GETKEY A$: GRAPHIC 0 


Listing 1: Demo mit Grafik 


Listing 1 stellt eine gedämpfte Schwingung auf dem 
Grafik-Bildschirm dar und zeichnet in Zeile 70 die 
Zeitachse und in Zeile 90 die exponentell abfallende 
Hüllkurve, die in Zeile 40 definiert wurde. Die Ver- 
kettung besteht darin, daß in die Definition einer 
zweiten Funktion (Zeile 50) der Funktionswert der 
ersten Funktion eingesetzt wird. 

Listing 1 zeigt übrigens auch, wie gut das Basic 3.5 
des C16 und Plus/4 die hochauflösende Grafik un- 
terstützt. 

Abschließend noch ein Hinweis: 


Tip #19 Wenn die Definitionszeile einen Fehler 
enthält, weist der „syntax error“ auf die Abfrage- 
zeile ?fny(z), weil die Definitionszeile erst bei ‚der 
Abfrage überprüft wird. Das erschwert: ai Fe >h) 
suche. Dr 


Bild 2 gibt einen Überblick über die ERRER al- 
ler vier Typen der einfachen Variablen im Speicher. 


Bild 2: Sieben-Byte Darstellung der einfachen Variablen. 


Variablenfelder oder Arrays brauchen einen eige- 
nen Speicherbereich, weil sie nicht in das Sieben- 
Byte Schema der Variablentabelle passen. Die An- 
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fangsadresse des Arraybereiches, der hinter der 
Tabelle der einfachen Variablen liegt, ist im Byte- 
paar 47/48 gespeichert (siehe Bild ]). 

In der ersten Folge wurde bereits auf den enormen 
Speicherbedarf der Felder und auf die Bedeutung 
der Dimensionierung hingewiesen. Ohne Dimensio- 
nierung hält der Rechner vorsichtshalber für jede Di- 
mension den Platz für 11 Variable frei, pro Fließkom- 
mavariable sind das fünf, pro Integerzahl zwei und 
pro String drei Bytes. Für das harmlos aussehende 
dreidimensionale Fließkomma-Feld a(1,2,3), macht 
das genau 6666 Bytes. Das ist mehr als die Hälfte des 
verfügbaren Speicherplatzes des C16. Durch die Di- 
mensionierung dima(1,2,3) erniedrigt sich der Bedarf 
auf 131 Bytes. 

Die drei Zahlen in der Klammer heißen Indizes, man 
spricht daher auch von indizierten Variablen. 

An einem einfachen Beispiel, einem eindimensiona- 
len Integerfeld, soll gezeigt werden, was bei der Ein- 
gabe dima%(5) im Speicher passiert. Integerzahlen 
sind als Feldvariable sehr beliebt, weil sie drei Fünf- 
tel weniger Speicherplatz brauchen als Fließkomma- 
variable. Zunächst wird wieder der Speicher in den 
Bildschirm verlegt: 

poke45,0:poke46,12:clr. 

Nach dem Löschen des Bildschirms führt man den 
Cursor ein paar Zeilen nach unten und gibt ein: 
dima%6(5). 


Klammeraffen statt Nullen 
EEE ER FE ENTE TREE] 


Man sieht einen „Vorspann“ aus sieben Zeichen und 
zwölf Klammeraffen (Nullen). Damit hat der Rechner 
für die sechs Feldvariablen a%(0), a%(]),. . .a%(5) 
den nötigen Platz im Arrayspeicher reserviert. Da 
den Variablen noch keine Zahlenwerte zugewiesen 
wurden, setzt der Rechner den „Defaultwert" (Er- 
satzwert) ein, die Null. 

Die erste Zeichengruppe, beim eindimensionalen 
Feld besteht sie aus sieben Bytes und beim zweidi- 
mensionalen aus neun, stellt den sogenannten Feld- 
deskriptor dar, der folgenden Aufbau hat (siehe Bild 
3): 

Unmittelbar hinter den beiden inversen Namen- 
bytes, die ein Integerfeld charakterisieren, folgt die 
Gesamtlänge der Reservierung in low/high-Darstel- 
lung. In diesem Fall ist das 3. Zeichen ein s=19 und 
das 4. Zeichen Null. Der Rechner muß also vom |. 
Namenbyte aus 19 Bytes weiterzählen, um zur näch- 
sten Feldvariablen zu gelangen. Da eine Feldvaria- 
ble nicht neu dimensioniert werden darf, ist die Ge- 
samtlänge eine konstante Größe und besser als Ver- 
bindungszeiger geeignet als eine Adresse. Diese 
würde sich jedesmal ändern, wenn eine neue einfa- 
che Variable eingeführt wird. 

Das fünfte Zeichen gibt an, wieviele Dimensionen 
das Feld hat (a=1). Das 6. und 7. Byte enthalten die 
Zahl der Elemente, hier f=6. Seltsamerweise steht 
diesmal das höhere Byte vor dem niederen. Man 
kann den Feldvariablen mit einer FOR-NEXT-Schlei- 


fe Werte zuweisen. Das ist ein großer Vorteil der 
Feldvariablen. Einfache Variable, zum Beispiel 
Al,A2,... müßten einzeln angesprochen werden. 

for i=0toS:a%(i)=i:next 

Durch das Auftreten der neuen Variablen i, die vor 
dem Feld eingeordnet wird, ist der ganze Arrayspei- 
cher um sieben Stellen nach rechts gerückt. 


Bild 3: Kopf eines Variablenfeldes. 


Hinter dem Felddeskriptor sind die reservierten 
Plätze jetzt mit Integerzahlen gefüllt. 

In der Klammer einer Feldvariablen darf auch eine 
mathematische Formel stehen. Der Computer be- 
rechnet ihren Wert und schneidet die Nachkomma- 
stellen ab. Nur negativ darf der Index nicht werden, 
sonst gibt es „illegal quantity“-Ärger. 

Bisher wurden nur eindimensionale Felder betrach- 
tet. Für jede weitere Dimension wächst der Felddes- 
kriptor um zwei Bytes, die angeben, wieviele Ele- 
mente diese Dimension enthält. Dieses Bytepaar 
wird nicht angehängt, sondern hinter dem 5. Byte 
eingeschoben, so daß die Dimension, die als letzte in 
der Klammer steht, immer an der sechsten Stelle des 
Felddeskriptors beginnt. Am besten läßt man sich 
das vom Computer zeigen, indem man eingibt: 
dima(1,2,3). 


Null-Elemente nutzen 
ETUI IE 


Dieses dreidimensionale Fließkomma-Feld hat 


2x3x4=24 Elemente, und für jedes müssen 5 Bytes 
freigehalten werden. Das sind, mit den 11 Stellen 
des Kopfes, 131 Bytes. Die Bildschirmdarstellung 
dieser Zahl ist das inverse kleine c (3+ 128), das man 
als 3. Byte des Deskriptors erkennen kann. 

Wie man das nullte Element einer Dimension sinn- 
voll nutzt, zeigt 


Wenn man ein Variablenfeld mit seinem großen 
Platzbedarf in einem Programm nicht mehr benötigt, 
möchte man es gerne Löschen. 


Bild 4: Bearbeitung einer Variablen. 


Die Verwaltung der Variablen macht dem Rechner 
viel Arbeit. Bild 4 zeigt die wichtigsten Schritte, die 
das Betriebssystem ausführen muß, wenn im Pro- 
gramm eine Variable auftaucht. Da ist es kein Wun- 
der, daß man den Programmablauf erheblich be- 
schleunigen kann, indem man häufig vorkommende 
Variable an den Anfang der Variablenliste bringt. 
Am einfachsten geht das mit Tip #6 aus der ersten 
Folge: Man dimensioniert diese Variablen in der ge- 
wünschten Reihenfolge am Programmanfang, zum 
Beispiel dima,b%,c$. 

Die Untersuchung des Variablenspeichers ist damit 
abgeschlossen. In der nächsten Folge kommt der 
Programmspeicher unter die Lupe. 


(Dr. Marie-Luise Beyer) EEE 
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Datenverwaltungssysteme für den 
C64/C128 gibt es wie Sand in Tune- 
sien. Um herauszuragen, muß neue 
Software besondere Leistungsmerk- 
male aufweisen. 


Vielversprechend präsentiert sich „The Consultant“ 
von Batteries Included. Das Programm wird zusam- 
men mit einem gebundenen deutschen Handbuch 
ausgeliefert, das auf seiner Rückseite eine stattliche 
Liste vielversprechender Software-Funktionen auf- 
weist. 

„The Consultant" ist als offenes Datenbankpro- 
gramm konzipiert, das maximal 65 588 Datensätze, 
Feldlängen bis zu einer Bildschirmseite und maximal 
99 Felder pro Datensatz (auf 9 Bildschirmseiten) ver- 
walten kann. Das Programm ist speicherresident, so 
daß Besitzer von nur einem Laufwerk nicht zu Disk- 
Jockeys werden. Nach Laden und Programmstart 
kann die Datendiskette permanent im Laufwerk blei- 
ben. 

Einige der aufgeführten Features konnten leider 
nicht getestet werden, da sie entweder auf der uns 
gelieferten Diskette nicht vorhanden waren, bezie- 
hungsweise im Handbuch nicht dokumentiert sind. 
So konnten trotz längerer Suche keine Angaben zur 
versprochenen Makrotechnik (Verkettung von Be- 
fehlsfolgen) gefunden werden, ferner gelang es 
nicht, die angegebenen Help-Funktionen auf Tasten- 
druck zu aktivieren. Auch weist das mitgelieferte 
Handbuch eine Reihe von Druckfehlern auf, die an 
manchen Stellen sogar zu fehlerhaften Eingaben füh- 
ren können. 


sicherte Datendisketten 
Ansonsten wurde Wert auf eine ausführliche Einfüh- 
rung gelegt, so sind fast 100 von insgesamt 177 Seiten 
einem ausführlichen Tutorial gewidmet. Bei der Er- 
stellung des Glossars wurde wieder gespart. We- 
sentliche Begriffserläuterungen lassen sich erst nach 
mühsamem Durchblättern der Anleitung finden. 

Die Software weist umfangreiche Menüs auf, wobei 
erfreulicherweise Hilfstexte eingeblendet werden, 
die per Knopfdruck abschaltbar sind. „The Consul- 
tant" ermöglicht umfassende Dateioperationen, die 
durch ein anwählbares Disk-Werkzeugmenü unter- 
stützt werden. Ferner ist ein Taschenrechner mit 64 
Speichern und den Grundfunktionen integriert. 

Die Arbeitsweise des Consultants ist einfach: Im Me- 
nüpunkt „Datei erstellen“ wird eine neue Maske er- 
zeugt, in der die gewünschten Felder unter Angabe 
von Feldlänge und Attributen bezeichnet werden. 
Möglich sind hier die Typen Numerisch und Alpha- 
numerisch, optional kann das Feld als Schlüsselfeld 
deklariert werden, wobei mehrere Schlüsselfelder 
gleichzeitig existieren können. 

Ein weiterer Menüpunkt ist der Bearbeitung der Da- 
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tei gewidmet, wobei sämtliche Editierfunktionen zur 
Verfügung stehen. Einige Kleinigkeiten sind jedoch 
zu bemängeln. So kann der Anwender bei der Aus- 
wahl der Feldattribute plötzlich eine Meldung be- 
kommen, daß nur noch eine Datenfeldlänge von 0 
zur Verfügung steht — ein Manko, das erst durch 
Verlassen des Programmpunkts und anschließen- 


GUTE IDEEN MIT 
BEHINDERUNGEN 


Modernes Datenbank-Management 


- so leicht wie das Anlegen eines Aktenordners - 
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Mit zehn 
vorgefertigten Standards 
wie Lagerhaltung, 
Budgetplanung, Adreßlisten, 
Katalogisierung u.v.m. 


2 


AR BÄTTERIES InCLUDEND 


Im Spitzenfeld der Dateiverwaltungsprogramme 
angesiedelt: „The Consultant“. 


den Neubeginn behoben werden kann. Es muß wei- 
terhin darauf geachtet werden, daß Zahlen rechts- 
bündig eingegeben werden sowie innerhalb eines 
Feldes die gleichen Füllzeichen verwendet werden, 
um Fehler bei der Sortierung zu vermeiden. 

Etwas mühevoll ist die nachträgliche Änderung der 
Dateistruktur: Die alten Datensätze müssen erst um- 
ständlich in sequentielle Dateien umgewandelt wer- 


den, bevor sie in eine neue Dateistruktur eingefügt 
werden können. 

Hinter dem Menüpunkt Suchen & Report verbirgt 
sich ein umfassender Reportgenerator, der mittels 
flexibler Maskentechnik eine problemlose Aufberei- 
tung der Daten ermöglicht. Sogar an die Integration 
von Rechenfunktionen zur Bearbeitung numerischer 
Daten hat der Programmierer von „The Consultant“ 
gedacht. In diesem Menüpunkt können neben der 
normalen Anzeige von Daten Berichte erstellt, Etiket- 
ten und Formulare gedruckt werden. Optional kön- 
nen Daten neben dem Drucker auf andere Einheiten 
ausgegeben werden, Felder aufgelistet und sortiert 
sowie Paßwörter vergeben werden. 

„Ihe Consultant“ ermöglicht deshalb die Erstellung 
gesicherter Programm- und Datendisketten. Da- 
durch ist es möglich, Feldern einer Datei vier ver- 
schiedene Sicherheitsstufen zuzuweisen. Damit kön- 
nen Anwender nur bei Kenntnis der entsprechenden 
Codewörter die Felder verändern. Auf der Consul- 
tant-Masterdiskette soll sich eine entsprechende 
‚sec-Version befinden. 

Last not least verfügt das Programm über ein Disk- 
Werkzeuge-Menü, in dem neben den üblichen Disk- 
Funktionen Anzeigen des Inhaltsverzeichnis, Forma- 
tieren und Disk löschen auch die Laufwerksgeräte- 
nummer softwaremäßig geändert werden kann. Be- 
sitzern eines Doppellaufwerkes wird es sogar er- 
möglicht, Sicherungskopien zu erstellen. 

Laut Handbuchbeschreibung enthält die Consultant- 
Masterdiskette kurze Hilfsprogramme, um Consul- 
tant-Dateien untersuchen und sortieren zu können. 
Leider fehlten diese bei der Testversion. 

Dabei handelt es sich um folgende Programme: 
„Rel-Read“ ermögliche das Lesen relativer Dateien, 
während „HDR-Read" Kopf-(Masken-)dateien und 
Key-Read sortierte Schlüsseldateien lesbar mache. 
Sequentielle Dateien können mit „Seq-Read" gele- 
sen werden. 

Zum Sortieren von besonders langen Dateien dient 
Supersort, Backup 64 ermöglicht das Kopieren mit 
Systemen mit einem Laufwerk und schließlich er- 
möglicht Filefix das Retten von Dateien, die durch ei- 
nen Diskettenfehler zerstört wurden. 

Ebenfalls sollen auf der Masterdiskette zehn bereits 
vorbereitete Standard-Dateien enthalten sein, die 
unter anderem die Bereiche Lager-, Budget-, Adreß- 
Verwaltung und Katalogisierung abdecke. 
Zusammenfassend ist „The Consultant“ ein vielseiti- 
ges Programm, das den Standard gängiger Daten- 
verwaltungssysteme übersteigt. Trotz der angespro- 
chen Mängel kann die Software in anderen Berei- 
chen durch ihr Leistungsangebot überzeugen. Über- 
sichtliche Menüs und ein umfassendes Tutorial 
machen das Programm, es kostet 89,95 Mark, nicht 
nur für professionelle Anwender attraktiv. Mit dieser 
Konzeption ist „The Consultant“ im Spitzenfeld der 
Datenverwaltungsprogramme mit anzusiedeln, vor 
allem, wenn die aufgetretenen Mängel beseitigt 
sind. 


(Dominic Hammor) UEMEEEEEEEEEEEEEEEEE 
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Aktuelle Info: 


Das Druckerinterface. 
Läuft mit jeder gängigen Software. 
Garantiert. Achten Sie darauf, bevor 
Sie einen Drucker oder ein Interface 
kaufen, bei dem das nicht gewähr- 


leistet ist. 
148,5, 


92000/G, 

jetzt nur noch 

Pufferspeicher für Drucker 
Im professionellen Bereich seit Jahren 
im Einsatz. zn. Computer- 
systeme um bis zu 95%. Sofort mit 
vorhandenen Programmen einsetzbar. 


99032, 32KByte: 198,- DM 
99064, 64KByte: 248,- DM 


Lowcost V24/RS232 

Ihr C64/C128 hat bereits eine serielle 
Schnittstelle eingebaut. Mit einem zu- 
sätzlichen Terminalprogramm erzeugt 
dieser Adapter die normgerechten 
V24/RS232-Pegel 


88002: 98,- DM 
Intelligente V24/RS232 


Eigener Prozessor, eigener 64KByte 
Buffer erlauben hohe Datenraten und 
einfache Anwendung. Empfang auch 
bei laufenden Programmen möglich. 


C64/C128 


98064, 64KByte: 298,- DM 


Soundbox 


Die meisten Spielprogramme erzeugen 
faszinierende Töne - doch Ihr C64/128 
bleibt stumm. Soundbox ist der stecker- 
fertige, kompakte HiFi-Verstärker mit 
integriertem Lautsprecher. 

Totaler Musikgenuß. Preiswert. 

95000: nur 78,- DM 


LC-Display 

Kleines alphanumerisches Zusatz- 
display als Kassenanzeige, 
Maschinendisplay usw.. 

Anschluß an Userport. 

81000, 2x16 Stellen: 398,- DM 
81001, 2x40 Stellen: 548,- DM 


Besuchen Sie unser Ladengeschäft: Mo-Fr 9-17 Uhr 


Internationale Distributoren: 

Belgien: Brother 24651946, Info Univers 52210384 * England: FCC 46073442 

Finnland: Fredex 80324044 * Frankreich: Neol 88623752 * Island: Thor, Reykjavik 
Italien: Matern 457580309 * Niederlande: D&P 23310153 * Österreich: Zahrer 222347671 
Schweden: UG 34053400 * Schweiz: Weber 19302003 * USA: Tectrans 8182853121 


wiesemann & 
theis gmbh v 


MIKROCOMPUTERTECHNIK 
0202/505077 Verkauf & Info Winchenbachstr. 3-5 


0202/505070 Technik Hotline 5600 Wuppertal 2 
0202/510444 Ladenverkauf Telex: 859 16 56 
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Stereoklänge 


am Expansionsport 


Bislang wurden nur Amiga-Besitzer 
mit digitalen Stereoklängen 
verwöhnt. Jetzt kommen auch 
C64-Freunde in den Genuß von 
klangvollem Sound — ein kleines 
Modul macht's möglich. 


Unter den Musikern hat der C64 zahlreiche Anhän- 
ger gefunden. Sound-Programme und Hintergrund- 
musik von Actionspielen zeigen, was mit dem SID 
möglich ist. In RUN 4/87 wurde eine universell ein- 
setzbare Schaltung veröffentlicht, die ein Mono-Si- 
gnal in ein Pseudo-Stereo-Signal umwandelt. Beim 
Stereo-Sound-Modul von KBL-Elektronik ging man 
einen anderen Weg: Im Steckmodul befindet sich 
neben diversen Bauteilen ein zweiter SID, der unab- 
hängig vom Soundchip im C64 angesprochen wer- 
den kann. Dem Programmierer stehen somit 8 
Soundkanäle zur Verfügung — vier für den linken 
und vier für den rechten Stereokanal. Der SID im Ex- 
pansionsport läßt sich problemlos in BASIC anspre- 
chen. Wer atemberaubende Musikstücke schreiben 
will, wie man sie von Spielprogrammen her kennt, 
kommt an Maschinensprache nicht vorbei. 

Im Lieferumfang des Moduls sind ein Steckernetzteil 
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Das Set beinhaltet Modul 
Netzteil, Mini-Laut- 


sprecher-Box und Demo- 
Software auf Diskette 


(Cassette). 


und eine Miniatur-Lautsprecherbox enthalten, die 

über ein Kabel an den Audio-Ausgang des Moduls 

angeschlossen wird. Der Minilautsprecher liefert ei- 

nen spärlichen Sound — mit einem Anschluß an die 

heimische Stereoanlage ist man besser bedient. 

Für den Test stand ein Handmuster zur Verfügung. 

Bei den Seriengeräten ist die Rechnerschnittstelle 
vergoldet und der Expansionsport durchgeschleift. ' 
Das Stereo-Sound-Modul kostet mit Zubehör und’ 
Demo-Diskette/Cassette 198,— Mark. | 
Bezugsquelle: KBL-Elektronik 


Müllnerstr. 28 
8500 Nürnberg 80 


Stereo-Sound über HiFi-Anlage 


HIFI-ANLAGE 
Audio In 
Tr 
Modul 


print 


"LCelr,4down,Sspaces,rvs] 


haenschen klein in stereo " 


print 


taste":print 


Print 
54272 
print 
kanal = 
print 
elektronik 


"LTödown,ıi2spacesl]lende mit 
"C4down]" 
"[öspaces]lsid-rechter kanal = 


"[öspaces]sid-linker[i2spaces] 
57288 
"Eidown,i12spaces]kbl- 


11=54272:12=54279:13=54284:14=57988: 
15=14+7:16=14+14 
hi=11+1:h2=12+1:h3=13+1:h4=14+1:h5= 
15+1:h6ö=16+1 
vi=l1i+4:v2=1l2+4: v3=13+4: v4=]14+44: v5ö= 
15+4:vö=1l6+4 


poke 
poke 
poke 
poke 
poke 
poke 
poke 


54295,15:poke 14+24,15 
vi+1,9:poke vi1+2,9@ 
v2+1,356:poke v2+2,36 
vS3+1,18:poke v3+2,178 
v4r1,36:poke v4+2,36 
vS+t1,18:poke vS5+2,178 
vö+1,9:poke v6+r2,8 


a=1989:h=19978:c=Z090: d=2210: e=2029: 
+=2939:g9=2904@ 


t=ti 
gosub 1978 
s=2d:gosub 
s=2d:gosub 
s=4:gosub 
s=20:gosub 
s=2B:gosub 
s=49: gosub 
s=2d:gosub 
s=20: gosub 
s=?d:gosub 
s=28:gosub 
s=Zd:aosub 
s=2d:gosub 
s=40:gosub 
s=2d: gosub 
s=28:gosub 
s=49:gosub 
s=28:gosub 
s=2d:gosub 
s=4:gosub 
s=29: gosub 
s=29:gosub 
s=20: gosub 
s=2@:gosub 
s=s#: gosub 
s=29:gosub 
s=-2d:gosub 
s=29:gosub 
s=-2d:gosub 
s=2@:gosub 
s=2d:gosub 
s=40:gosub 
=Z9:gosub 
s=2#: gosub 
s=2d:gosub 
s=29: gosub 
=29:gosub 
s=?d:gosub 
s=4@:gosub 
s=20:gosub 
s=20: gosub 
s=4B:gosub 
s=2d:gosub 
s=2d:gosub 
s=40:gosub 
s=2B:gosub 


284G:rem 
2#22d: rem 
ZU2B:rem 
2830: rem 
2@1@:rem 
2@1@d:rem 
za@d:rem 
Z@ld:ırem 
2828: rem 
28328: rem 
2#48:rem 
2#4@:rem 
zZa4ß:rem 
2040:rem 
282B:rem 
292@:rem 
283d:rem 
Zö1@:rem 
Zeiß:rem 
Z2asd:rem 
288@:rem 
2a4äırem 
Zuö4ß:rem 


292@:rem 


221ßd:rem 
Z81ß:rem 
221@:rem 
Z2öiß:rem 
Z@1ß@:ırem 
2928:rem 
203@:rem 
2028:rem 
282@:rem 
2220: rem 
2828:rem 
2028: rem 
223d:rem 
2ö4ß:rem 
2940:rem 
2820: rem 
2028:rem 
2230: rem 
28iß:rem 
z@1@:rem 
220@:rem 


3263 Sa s=29:gosub Z#@@:rem nach 
sb s=2ß:gosub Zä4ß:rem haus 1397 
3577 679 s=29:gosub 2B4ß:rem ge- 1397 
689 s=dß:gosub 2928: rem schwinnt 1459 
2958 685 yet a$:if asi;"" goto IRA 1644 
6990 goto 288 558 
2963 1978 poke vi,16:poke v2,32:rpoke v3,16: 5419 
poke v4,i1ö:poke vS,i16:poke v6,1&: 
2214 return 
1988 poke hi,14:poke 11,162:poke h4,14: 7152 
6313 poke 14,16@:poke h2,11:poke 12,158: 
poke hS5,11:poke 15,156 
4315 1981 poke h3,9:poke 13,56:poke hd, 9:poke 3745 
16,55:gosub 295% 
421 1982 return 142 
1998 poke hi,16:poke 11,1%@9:poke h2,16: 5487 
2151 poke 12,1@8:poke h5,16:poke 15,197 
1647 1971 poke h3,16:pok313,11@:poke hö,1&: 3891 
1788 poke l6,1i1i:gosub 2958 
1769 1992 return 142 
1812 2288 poke hi1,17:poke 11,1935:poke h4,17: 6267 
1723 poke 14,1@#1:poke h2,17:poke 12,192: 
1687 Poke h5,17 
4924 28261 poke 15,1@4:poke h3,17:poke 13,195: 4927 
poke hd,17:poke 168, 1@6:gosub 2958 
348 2862 return 142 
655 2#1@ poke hi1,19:poke 11,.137:poke h4,19: 6416 
1397 poke 14,135:poke h2,i6:poke 12,189: 
1395 poke h5,16 
1493 2811 poke 15,1@9:poke h3,1S:poke 13,10: 4625 
1396 poke hd,13:poke 15, 11:g0osub 2458 
1394 2812 return 142 
1482 2928 poke hi1,21:poke 11,237:poke h4,21: 6287 
1393 poke 14,235:poke h2,17:poke 12,193: 
1394 poke hS5,17 
1395 2#21 poke 15,1@1:poke h3,14:poke 13,162: 4798 
1396 poke hd,14:poke 16, 14: gosub 2959 
1397 2822 return 142 
1397 2039 poke h1,23:poke 11,59:poke h4,23: 6887 
14985 poke 14,58:poke h2,19:poke 12,137: 
1397 poke h5,19:poke 15,135 
1395 2851 poke h3,1&6:poke 13,1%@9:poke hd,16: 4089 
1483 poke 16,1%27:g0sub 2258 
1395 2832 return 142 
1394 2949 poke hi1,26:poke 11,2@:poke h4,26: 6539 
1482 poke 14,19:poke h2,2Zi:poke 12,236: 
1393 poke h5,21:poke 15,234 
1393 2841 poke h3,17:poke 13,183:poke h6,17: 4184 
1397 poke 15,1@1:gosub 295% 
1397 2842 return 142 
1411 22859 poke v1,17:poke v2,33:poke v3,17: 5308 
1394 poke v4,17:poke vS,17:rpoke v6,17 
1394 2952 t=t+s 454 
1394 28953 if t>ti goto 2053 1183 
1394 2954 gosub 1974 655 
1394 2855 return 142 
1395 Sse2g9 for i=ß to 28:poke 1l1i+i,ß:poke 14+i, 2747 
1484 B:next 
1395 3081 end 128 
1395 SA92 zsı:rem ::kbl-elektronik:: 
1395 S@ßB3 ssırem ::konrad blassı:::: 
1395 39284 :::rem ::muellnerstr.28:: 
1395 3905 :::rem ::85 nuernberg 8ß: 
1396 39086 s::rem ::tel.B911 263262: 
1495 
1397 
1395 | Hänschen-klein in Stereo. 
a Listing zeigt, wie man den SID im Expansionsport 
1492 
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Rat und TaC mm 


Hilfe! Mein C64 hat keine Lust 
mehr, mit der Floppy zusammen- 
zuarbeiten. Nach Eingabe von 
LOAD,$",8 meldet er zwar 
SEARCHING, aber weder der 
Floppymotor, noch die rote LED 
geben ein Lebenszeichen von 
sich. Alles was ich nach langem 
Überprüfen herausgefunden 
habe, ist, daß in Speicherzelle 
56576 eine 147 anstatt wie im Nor- 
malfall eine 151 steht. Ist der CIA 
kaputt? Ist der Fehler softwaremä- 
Big zu beseitigen? Was kostet die 
Reparatur? 

(Alexander Gnant) 


Höchstwahrscheinlich liegt ein se- 
rieller BUS-Fehler vor. Dieser 
kann an Floppy, Rechner oder an 
beiden gleichzeitig liegen. Zer- 
stört werden die seriellen BUS- 
Bausteine meist durch falsche Rei- 
henfolge beim Zusammenstecken 
einer C64-Anlage. Man sollte im- 
mer zuerst alle seriellen Verbin- 
dungen herstellen und ERST 
DANN die Netzkabel der Geräte 
anschließen (beim Abbau ent- 
sprechend umgekehrt)! 

In Ihrem Fall sind mit Sicherheit im 
Rechner U2/U8 oder in der Flop- 
py UAI/UB2 defekt. Eine Repara- 
tur kostet 50 bis 130 Mark. m, 


Port putt 


Seit einigen Tagen ist der Joystick- 
port 2 an meinem C64 nicht mehr 
voll funktionsfähig. Weder geht 
die Funktion „rechts" alleine, 
noch in Verbindung mit „oben“ 
oder „unten“. In Port 1 funktioniert 
der Joystick einwandfrei. Ich habe 
am Rechner keine Basteleien 
durchgeführt, eine mechanische 
Funktionsbeeinträchtigung wie 
Verschmutzung oder gar abge- 
brochene Pins liegt nicht vor. 
Worin liegt die Ursache des Feh- 
lers und wie kann man ihn behe- 
ben? 

(Stefan Hornung) 


An Ul der IO-Bausteine 6526 auf 
der C'64-Platine sind zwei Ports — 
Port A für Controlport 2 und Port B 
für Controlport 1 — zuständig. In 
Ihrem Fall ist höchstwahrschein- 
lich Port A des 6526 Bausteins de- 
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WERNER ER ON 


fekt. Zur Fehlerbeseitigung muß 
Ul erneuert werden. Ist dieses IC 
auf Ihrer C64-Platine gesockelt, so 
ist der Austausch unproblema- 
tisch. Andernfalls sollten Sie einen 
Reparaturservice aufsuchen. 

Die Ursache des Fehlers liegt an 
einer statischen Entladung des 
Körpers (beim Einstecken eines 
Joysticks) am Controlport. Bevor 
man einen Port am C64 berührt, 
sollte man sich statisch entladen 
(zum Beispiel am Antennenkabel 
oder Heizkörper). m 


Staubsauger 
gebändigt 


Ich habe gehört, daß es möglich 
ist, das „staubsaugerähnliche" 
Geräusch des Kühlgebläses beim 
128D durch Zwischenschalten ei- 
nes Widerstandes (100 Ohm, 7 
Watt) zu reduzieren. Mich inter- 


Zat und IAt 


Fragen zur Hardware beantwortet 
RUN. Sigismund Unterstaller — 
Service-Techniker beim Rat-und- 
Tat-Kundendienst München — 
bietet Hilfe bei Problemen rund 
um den Computer. Er erklärt, was 
und wie man reparieren kann, 
gibt Selbstbautips und hilft mit sei- 
nem Know-how, Fehler zu vermei- 
den. 


Fragen an: 

Redaktion RUN 
Sigismund Unterstaller 
Postfach 400 429 

8000 München 40. 


a 


essiert nun, ob ein solcher Eingriff 
am Rechner wirklich keinen Scha- 
den auslösen kann. Vorausgesetzt 
wird ein Betrieb von etwa vier 
Stunden täglich. 

(Peter Staikos) 


Der Rechner wird bei diesem Ein- 
griff, abgesehen vom Verlust der 
Garantie, keinen Schaden neh- 
men. Der Widerstand muß minde- 
stens 2 Watt (oder besser 5 Watt) 
vertragen. Bei maximal vier Stun- 
den Betrieb am Tag treten bei 
langsamerem Kühler keine Stö- 


rungen auf. m, 


1. Wie kann ich im C64-Modus ein 
Steckmodul im Expansion-Port 
softwaremäßig abschalten? 

2. Wie kann ich mit meiner Floppy 
1541 Daten auf den Spuren 38-50 
und höher ablegen? 

(Wilfried Elmenreich) 


l. Steckmodule lassen sich soft- 
waremäßig nicht abschalten. Für 
die hardwaremäßige Abschaltung 
ist bei den meisten Modul-Platinen 
ein kleiner Schalter vorgesehen. 

2. Ohne Hardware-Zusätze ist ein 
Verwalten der Spuren ab 35 nicht 
möglich. Im Handel erhältliche 
Floppyspeeder wie beispielswei- 
se Professional DOS, Rapid DOS 
oder Turbotrans unterstützen die 
Verwaltung der Spuren 35-40. 1 


Superpoke 
gesucht 


Unsere Schule hat einige Siemens- 
PCD für den Informatik-Kurs be- 
kommen. Nun interessiert mich, 
ob es einen POKE oder ein Pro- 
gramm gibt, mit dem man Spiel- 
programme vom C64 auf dem Sie- 
mens Rechner laden kann. 

(Cekic Dragan) 


Bislang gibt es keinen Rechner, 
außer dem C128 im C64-Modus, 
der in der Lage ist, in Maschinen- 
sprache geschriebene Spiele für 
den C64, zu laden. Den gesuchten 
Superpoke gibt es leider nicht. 


DATA BECKER Führer DATA BECKER Führer DATA BECKER Führer 
zu C16/116/Plus 4 zum C64 zum C128 
113 Seiten, DM 19,80 ca. 200 Seiten, DM 19,80 ca. 200 Seiten, DM 19,80 


erscheint ca. 4/87 


DATA BECKER Führer DATA BECKER Führer DATA BECKER Führer 
zu dBase Il zu CP/M zu C64 Superspielen 
122 Seiten, DM 19,80 139 Seiten, DM 19,80 128 Seiten, DM 19,80 


Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 


Gewußt 


Bestimmt kennen Sie das Pro- 
blem: Mitten beim Programmie- 
ren oder Arbeiten mit Ihrem 
COMMODORE fehlt Ihnen eine 
bestimmte Information. Ein 
Steuerbefehl für den Drucker 
nur oder ein bestimmter Floppy- 
Befehl. Und dann geht die 
Sucherei los! Eigentlich kann es 
nur im Handbuch gestanden 
haben. Oder war es in einer 
Zeitschrift? Drei Titel zu 
COMMODORE-Rechnern wol- 
len Ihnen die Sucherei ersparen; 
helfen, alle Fragen und Pro- 
bleme schnell zu klären - auf 
einen Blick: die DATA BECKER 
Führer zu COMMODORE- 


Computer. 


Betriebssysteme und Pro- 
gramme - auch hier Befehle, 
Kommandos, Funktionen. Auch 
hier sind die DATA BECKER 
Führer die richtige Informations- 
quelle. Immer aktuell, übersicht- 
lich und hilfreich. Immer im 
gleichen Gewand: Robustes 
Hardcover im handlichen 
Westentaschenformat. Und 
immer gleich strukturiert: Alle 
Befehle und Funktionen nach 
Sachgruppen, alphabetisch mit 
Kurzsyntax oder über Stich- 
worte. Egal, wie sich Ihr 
Problem darstellt, mit 
einem Blick in den 
DATA BECKER 
Führer ist es 
bereits 
gelöst. 


U Kino zum Anfassen: 


Mit einem AMIGA vom Typ 500, 1000 
oder 2000 und dem DeLuxe Video- 
Set von Electronic Arts wird mit mini- 
malem Aufwand all das Realität, was 
in der Filmbranche unter dem Begriff 
„Computer Animation“ schon seit Jah- 
ren für volle Kinosäle sorgt. 


Drei Disketten bilden die Grundlage zum Aufbau raf- 
finierter Videoclips. Aber dem nicht genug: Sprach- 
und Musik-Unterlegung auf die Hundertstelsekunde 
synchron, „geframte"“ Bewegungsabläufe, ins Bild 
taumelnde, rotierende Titelphasen, aus dem Nichts 
auftauchende, dreidimensionale Objekte, vor einem 
digitalisierten oder handgezeichneten Hintergrund 
schwebend — da vergißt man den Fernseher und 
gestaltet sich das eigene Wunschprogramm. 

Das Prinzip ist einfach. Im „Video-Script" werden die 
Basiselemente des künftigen Films festgelegt: Sze- 
nendauer, Musikspur, globale Vorder- und Hinter- 
grund-Manipulation sowie eventuell erwünschte Ab- 
laufkontrollen. Im anschließend zu erstellenden 
„Scene-Script“ kommt man dann zur Sache. Mit Hilfe 
von Tracks (Spuren) werden Bilder (für den Hinter- 
grund) und Objekte (für den Vordergrund) von der 
Master- oder der Parts- und Utilities-Diskette aufge- 
rufen und durch „Effects“ in das Geschehen einge- 
bunden. Sogenannte „Requester“ (System-Anfragen) 
regeln — im Dialog mit dem Anwender — die Art und 
Weise, wie mit dem Bild verfahren werden soll. So 
kann man beispielsweise mehrere Objekte gleich- 
zeitig in den Speicher laden (FETCH), um sie zur ge- 
wünschten Zeit — ohne stressendes Nachladen von 


Elektronisches Storyboard 
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der Diskette — über den Schirm zu bewegen. „Ef- 
fects" hat, je nach Art, einen oder zwei Pfeile, mit de- 
nen man bestimmen kann, wann und für wie lange 
ein Bild in der Szene Verwendung findet. 

Als Faustregel gilt: „Tracks" sagen aus, WOMIT 
(Bild oder Objekt) etwas gemacht werden soll. „Ef- 
fects" beantwortet die Frage nach dem WAS und 
WANN, während „Requester" darüber Auskunft ein- 
holt, WIE ein Effekt abzulaufen hat. Ist der Film fer- 
tig, Kann man ihn auf der beiliegenden Player-Disk 
abspeichern oder auf einen Videorecorder über- 
spielen. Das (englische) Handbuch erklärt gut be- 
schrieben sämtliche Vorgänge an einem kleinen Bei- 
spielfilm. Seit neuestem gibt es dazu von Electronic 
Arts einen „Video Advanced User's Guide“, in dem 
weitere Möglichkeiten des Programms geschildert 
werden. Vom Münchener „Amiga Art Machine"- 
Team wurde ein Buch angekündigt, das vor allem für 
Profis interessant sein dürfte. 

Bei Deluxe Video kommen Filmenthusiasten voll auf 
ihre Kosten. Das Programm benutzt eine „Sprache“, 
die Trickfilmern bekannt ist. So gliedert sich das 
Video-Script (analog zum klassischen Storyboard) in 
einzelne Szenen, die wiederum durch Spuren für 
Schrift (Polygon Text), Musik, Sound, Vordergrund 
(Foreground) und Hintergrund (Background) unter- 
teilt werden. Eine Reihe von Effekten (Effects) zur Be- 
wegung (Move To) von Objekten (Brushes), zur Fest- 
legung des Erscheinungsortes (Appear), der Grö- 
ßenbestimmung (Size) etc. koordinieren schließlich 
den Ablauf (Bild 1). Diese, hierarchische Einteilung 
in Video- und Scenen-Script, in Spuren und Effekte, 
kommt dabei erheblich der Übersicht zugute. 

Die Hintergrundspur verwaltet vor allem die im Un- 
terverzeichnis „pictures" abgespeicherten Back- 
grounds, die, mit einem Malprogramm (wie Deluxe 
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Zusammenstellung der Traks 


Paint) erstellt oder digitalisiert, als IFF-Files abge- 
speichert wurden. Im Programm vorhandene einfa- 
che Muster können wahlweise eingeblendet wer- 
den. Dabei zeigt sich eine Einschränkung des Pro- 
gramms: Pro Bild (oder Objekt) können nur acht Far- 
ben dargestellt werden. Dadurch soll verhindert 
werden, daß ein Objekt, das eine andere Farbpalet- 
te benutzt, die Farben des Hintergrunds verändert. 
Deluxe Video erkennt bereits beim Aufruf eines Bil- 
des (beziehungsweise Objekts), ob es in acht Farben 
erstellt wurde. War dies nicht der Fall, kann eine 
automatische Anpassung durchgeführt werden. Da- 
bei ist es erstaunlich, wie gut die Bilder selbst dann 
noch wirken. 

Die Vordergrundspuren (Object- und Foreground- 
Track) dienen als Spielwiese für alles, was sich be- 
wegen soll, wie Schriften, Objekte (zum Beispiel Fi- 
guren, Tiere etc.) und mit dem Framer entwickelte 
Animationssequenzen. Jedes dieser Objekte hat sei- 
ne eigene Spur, wobei auch diverse Farbenspiel- 
chen möglich werden. 

Zur Untermalung der Szenerie kann im Video-Script 
eine Musikspur angelegt werden, mit der auch Pau- 
sen zwischen den einzelnen Szenen geschickt über- 
brückt werden können. Digitalisierte Sounds sorgen, 
falls erwünscht, für den nötigen Drive. 

Geschickte Zeichner finden auf der Parts- und Utili- 
tie-Diskette ein Programm, das erstaunliche Fähig- 
keiten aufweist: den (bereits erwähnten) Framer. 

In DeLuxe Paint kreierte Bewegungsphasen (Bild 4) 
werden in der Art eines Daumenkinos animiert und 
im Scene-Script mit einem AnimSequ-Effect auf einer 
Objektspur abgelegt. Bei Abspielen des Films wer- 
den nun die einzelnen Sequenzen derart durchlau- 
fen, daß der Eindruck von Bewegung entsteht. 

Im Master-Programm integriert, leistet der Scene- 
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Generator wertvolle Hilfe. So bereitet es keine 
Mühe, mit dem Befehl „Charts“ Balken- oder Ku- 
chengrafiken zu erstellen, wobei letztere so animiert 
werden können, daß die einzelnen Kuchenstücke 
dem Betrachter „nur so um die Ohren fliegen“. Vor- 
ausgesetzt, daß der Computer mit genügend RAM- 
Speicherplatz gesegnet ist, denn Deluxe Video ist 
ein wahrer Speicherplatz-Schluckspecht. Ein schma- 
ler, einblendbarer Balken gibt über die Speicher- 
ausnutzung jederzeit Auskunft. Auf Besitzer von nur 
einem Laufwerk wartet ein Trimm-dich-fit-Lehrgang 
im Diskettenwechseln. 

Von seiner Schokoladenseite zeigt sich das Pro- 
gramm, wenn Buchstaben oder Texte in das Video 
einzufügen sind. Schwindelerregende Rotätionen um 
jede beliebige Achse (wobei das gesamte Farbspek- 
trum durchlaufen werden kann) gehören dabei noch 
zu den leichtesten Übungen. Die höheren Weihen 
erreicht man, wenn gleichzeitig Bewegungs- und 
Größenmanipulationen sowie die Strobe-Effekte ein- 
gesetzt werden. Die Effect-Boxen offerieren eine 
derartige Vielfalt von Möglichkeiten, daß es schon 
einiger Praxis bedarf, sie sinnvoll einzusetzen. 

Der Strobe-Effekt bewirkt, daß Objekte einen 
Schweif hinter sich herziehen. Mit „Fade“ können 
Überblendungen realisiert werden, während 
„Wipe“ die Figur diagonal, von links nach rechts, 
von oben nach unten oder aus der Mitte kommend, 
auf den Bildschirm bringt. Und ... und ... und ... 
Deluxe Video kann Amiga-Besitzern empfohlen 
werden, die sich mit der Produktion von Videos be- 
schäftigen möchten. Sei es für den Heimgebrauch 
oder zur Herstellung von professionellen Clips, der 
Phantasie sind keine Grenzen gesetzt. Das richtige 
Werkzeug liefert Deluxe Video. 

(Walter Friedhuber) 


Animationssequenz by AMIGA ART MACHINE 


Animationssequenz des Vogelfluges 
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WU von Falken und Friv 


„Sindbad and the Throne of the Fal- 
con“, so heißt Mindscape’s drittes 
Computerspiel unter dem Cineware- 
Label. In der mythos- und sagenum- 
wobenen „Kinogeschichte" sollte 
man den Rat der Firma folgend, eine 
Tüte Popcorn und Getränke bereit- 
halten. 


Mit Saubären hat’s Sindbad auf seinen Reisen rund 
um die Welt zu tun. Von Romantik keine Spur! Schön 
ist's trotzdem — für seinen Vertreter am Terminal, in 
der Spielfassung, die dadurch überzeugt, daß sie für 
den Amiga kongenial angepaßt wurde. Was der an 
Grafik bietet, weiß man ja. 


Tausendundeine Nacht mit Amiga 


Reichlich verwirrend zunächst die Ausgangslage: 
Den Kalif in Damaron hat's urplötzlich und mitten in 
der Nacht erwischt. Aus dem greisen Fürsten wurde 
plötzlich ein Falke. Irgendeine mittelöstliche Version 
des Hexers hat ihn per Zauberspruch in ein Tier 
transformiert. Glück im Unglück, immerhin gilt doch 
der Falke in Arabien geradezu als Edelviech. Glück 
auch, daß der Kalif eine ebenso hübsche wie treue 
Tochter hat, die auf den zauberhaften Namen Syl- 
phany hört. In ihrer Not engagiert sie Sindbad, der 
sie von Kindheit an kennt und beim Stichwort Syl- 
phany ständig Herzflattern bekommt. Ein Motiv, ihr = 

zu helfen, hat er folglich; die den Kalif erlösende Überlebt Sindbad den Kampf mit dem einäugigen Zyclo- | 
Zaubervokabel zu finden, ist sein Job; ob esinseiner Zen? 
Macht steht, ist freilich fraglich. | 


Simultane Abenteuer 


Fast Unmögliches wird ihm abverlangt: Simultan 
muß er einerseits mit der Einsamkeit des Seefahrers 


klarkommen, rumreisen und die Zauberformel su- er. Bits 2% 
chen und andererseits die Truppen des Transfor- BR = Be 


mierten organisieren, um Damaron zu verteidigen; 
und, als reichte es noch nicht, auf die Prinzessin und 
ihren ebenso schutzbedürftigen Bruder Harun auf- 
passen! 

Seine Contras sind von besonderem Kaliber! Ange- 
führt werden sie von „Black Prince“ Camaral, einem 
ehrgeizigen Burschen, der auf den Kalifen-Job spe- 
kuliert. Ergänzt wird das Szenario personell durch 
einen Schamanen, eine frivole Zigeunerin sowie eine Die Weltenkarte hilft bei der Suche nach dem Zauberwort. 
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„Verführerin", die's drauf anlegt, Sindbad's Tugen- 
den zu tangieren. Zwangsläufig kommt eine geografi- 
sche Komponente dazu, und nicht zuletzt ein Lauf ge- 
gen die Sanduhr. 

So wären wir mitten im Spiel — und finden da Altbe- 
kanntes: Schießübungen (auf einen fliegenden Vor- 
zeit-Dinosaurier), Säbelfechtereien (ein optischer 
Genuß), Zeit- und Punkte-Konten, Geschicklichkeits- 
übungen beim Navigieren, eine Prise Strategie & 
Psychologie und peppige Dialoge. Nichts neues, nur 
die Mixtur ist anders! „Fantasy“ und „Ädventure" 
überwiegen bei weitem. Wer's mag, greife zu. Denn 
Gewinn hat er allemal dabei — vor allem in Sachen 
Grafik und Sound wird einiges geboten. 


(Reiner Uhl) 


Programmname: Sindbad and the Throne of the Falcon 


0 l 2 3 4 5 


Frische Zeichen 


Programme wie PageSetter und 
DeLuxe Video arbeiten mit System- 
zeichensätzen. Auf fantasievolle 
Schriftzüge oder Buchstaben im 
Computerdesign mußte der Anwen- 
der bisher verzichten. Zuma Fonts 
schafft hier Abhilfe. 


Auf drei Disketten bietet Zuma Fonts jeweils drei un- 
terschiedliche Zeichensätze in 6 Größen. Jeder Zei- 
chensatz und jede Größe existiert in zwei Versionen. 
Die erste Variante ist für niedrige (320x200 Bildpunk- 
te) und hohe Auflösung (640x400) ausgelegt. Zeichen- 
sätze, die mit „m" gekennzeichnet sind, wurden für 
die mittlere Auflösung (640x200 Punkte) entworfen. 
Verwendet man diese Zeichensätze im niedrigen 
Auflösungsmodus, erscheinen die Buchstaben ver- 
breitert. Zeichensätze mit dem Vermerk „c" enthal- 
ten Buchstaben, deren Höhe mehr als 99 Bildzeilen 
beträgt. Diese Schriftsätze finden im HiRes-Modus 
Verwendung. Manche Programme arbeiten nicht 
korrekt, wenn sie versuchen Zeichen darzustellen, 
die höher als zwei Standardbuchstaben sind. 

Zum Lieferumfang jeder Zuma-Diskette gehört „Font 
Librarian“. Mit seiner Hilfe erstellt man neue Zei- 
chensatzbibliotheken, wobei Zuma- und Standard- 
schriften Verwendung finden. Mit dem Kommando 
VIEW kann man sich die Schriftsätze anzeigen las- 
sen. Vor dem Start eines Programms wie DeLuxe 
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Paint II ordnet man seine neuen Zeichensätze mit 
dem Befehl USE zu. Benötigt das Programm die Zei- 
chensätze, kommt eine Aufforderung, die neue Zei- 
chensatzdiskette einzulegen. RENAME und DELETE 
runden den Befehlsumfang ab. Ein Menüpunkt zum 
Erstellen von eigenen Zeichensätzen ist nicht vorhan- 
den. Der recht hohe Verkaufspreis (DM 69.-) für je- 
weils eine Diskette wirft viel Schatten auf das anson- 
sten nützliche Utility. 


(Roger Schmidt) 


Bezugsquelle: Softwareland, Franklinstraße 27, 
CH. Zürich (Schweiz) 


Zeichensätze in allen Variationen bietet Zuma Fonts. 
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Mit PageSetter, Amiga, Drucker und et- 
was Fantasie kann jetzt jeder seine ei- 
gene kleine Publikation kreieren. Was 
bislang den Profis vorbehalten war, 
hält jetzt Einzug in die Wohnstube. 


Seit Newsroom und Printmaster ist der Zungenbre- 
cher Desktop-Publishing, kurz DTP genannt in aller 
Munde. Auf dem schnell wachsenden DTP-Markt 
herrscht eine regelrechte Goldrausch-Stimmung. 
Manche Anbieter legen den Begriff großzügig aus, 
um auf ihre Programme die drei Buchstaben DTP zu 
pappen. Die Idee zu DTP entstand in Zeitungsverla- 
gen. Es geht hier um die Gestalt und den Aufbau der 
Zeitungsseite (englisch: Page). Betrachtet man diese 
Seite näher, erkennt man die verschiedenen Struk- 
turelemente. So findet man Überschriften, Zwischen- 
überschriften, Bildunterschriften, Balken, Linien, 
Textblöcke sowie Fotos und Grafiken. Bei der Ge- 
staltung einer Textseite geht man in einer bestimm- 
ten Reihenfolge vor: 

1. Erstellen einer Skizze 

2. Layout 

3. Beschaffen der einzelnen Teile 

4, Kleben der Einzelteile 
Daraus folgt, daß Desktop-Publishing-Programme 
komplexen Anforderungen standhalten müssen. Um 
eine Seite zu erstellen, wählt man in Menü „Page“, 
„Create“ an. Ein Fenster, in dem Blattformat, Rand- 
begrenzung und die Anzahl der Textspalten einge- 
stellt werden. Voreingestellte Blattformate wie A4 
oder B5 entsprechen der DIN-Norm. Ebenso können 
eigene Blattformate gewählt werden. Zentimeteran- 
gaben rechnet man in Inch (ein Inch entspricht 2,54 
Zentimeter) um. Über das so entstandene Blatt legt 
man zur besseren Einteilung des Layouts wahlweise 
ein Gitternetz oder eine Maßskala. Maße lassen sich 
in Pica anzeigen. Pica ist eine Maßeinheit für Zei- 
chensätze und ein Pica entspricht 0,351 Millimeter. 
Sind Voreinstellungen abgeschlossen, gilt es Text 
und Grafik auf dem Arbeitsblatt zu positionieren. Im 
Menübalken neben dem Arbeitsblatt steht dazu die 
Funktion Box bereit. Auf dem Blatt setzt man ein 
Rechteck von beliebiger Abmessung. Jedes Recht- 
eck oder jede Box ist ein Behälter für Text oder Gra- 
fik. In einem speziellen Menü werden für jede Box 
Hintergrund, Rahmen und verschiedene Zeichensät- 
ze festgelegt. An Zeichensätzen stehen die Standard- 
Fonts der Workbench zur Verfügung. Diese lassen 
sich jedoch leicht durch andere Zeichensätze wie 
ZUMA FONTS (siehe Bericht in dieser Ausgabe) aus- 
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Zeitungmachen nach 


Vorgegebene Grafiken verändert man im Grafik Editor. 


Pagesetter V1,8 
I: SEE T 


7 EEE 


into a professionally finished image with .. 


Desktop Publishing for the AMIGA 


Bocunent: (1yer.doc 
: 7 


Maßskala und „Boxes" erleichtern das Layout im Pageset- 


ter 


wechseln. Zeilenabstand und Randbegrenzung des 
einzufügenden Textes sind variabel, Mit LINK bezie- 
hungsweise UNLINK stehen dem Benutzer Komman- 
dos zur Verfügung, um zwei Textboxen zusammenzu- 
fügen oder zu trennen. Ist das Arbeitsblatt auf diese 
Weise gegliedert, gibt es zwei Arten, um Text einzu- 
setzen. Handelt es sich vorwiegend um Überschrif- 
ten oder kurze Texte steht der Quicktext-Editor zur 
Verfügung. Für längere Textpassagen ist es empfeh- 
lenswert das integrierte Textverarbeitungspro- 
gramm zu benutzen. Dies beinhaltet alle Grundfunk- 
tionen wie Wort suchen, ersetzen oder Textpassagen 
kopieren. Ebenso wie im Quicktext-Editor sind alle 
deutschen Umlaute verfügbar. Texte, die mit Scrib- 
ble oder Textcraft geschrieben sind, können weiter- 
verarbeitet werden. Eine sehr nützliche Funktion im 
Hauptmenü von Pagesetter ist Magnify. Es handelt 
sich um eine Ärt Lupe, um das Arbeitsblatt zu ver- 
größern oder zu verkleinern. Unter dieser Lupen- 
funktion findet man einen kleinen Kasten, in dem 
ständig angezeigt wird, welcher Teilausschnitt im 
Moment auf dem Bildschirm zu sehen ist. Um Grafik 
ins Arbeitsblatt einzubinden, wird im Department 


Lust und Laune 


Menü der Graphic Editor aufgerufen. Was zuerst 
auffällt ist die Grafikauflösung von 640x200 Bildpunk- 
ten und die Darstellung in Schwarzweiß. Sowohl Auf- 
lösung als auch die zweifarbige Darstellung wurden 
unter dem Aspekt eines 1:1-Grafikausdruckes ge- 
wählt. Bilder anderer Grafikprogramme wie DPaint 
II oder Aegis Draw können in den Grafik-Editor 
übernommen werden. Farbige Grafiken werden in 
Bilder mit Graustufen umgewandelt und die Motive 
sind nach dem Ausdrucken kaum wiederzuerken- 
nen. Bessere Resultate sind mit Schwarzweißbildern 
in mittlerer Auflösung zu erzielen. Zum Editieren der 
übernommenen Grafiken oder zur Erstellung eige- 
ner Grafiken gibt es einige Funktionen. wie Kreise 
oder Linien ziehen, Flächen füllen und die Auswahl 
verschiedener Pinselstärken. Dies sind jedoch mur 
die nötigsten Minimalfunktionen. 


„Rettungsmaßnahmen“ bei 
Speichermangel 


Wer komfortabler arbeiten möchte, sollte ein profes- 
sionelles Grafikprogramm benutzen, das seine Bil- 
der im IFF-Format abspeichert. Auf der Programm- 
diskette sind bereits fertige Grafiken vorhanden. 
Wer außer Grafiken zusätzlich „Fotos“ in den Text 
einfügen möchte, dem unterbreitet das im Lieferum- 
fang enthaltene deutschsprachige Handbuch zwei 
Vorschläge. So gibt es die Möglichkeit mit Hilfe ei- 
ner Videokamera Bilder zu digitalisieren. Bei 
Schwarzweißfotos lassen sich damit gute Ergebnisse 
erzielen. Eine Alternative dazu wärs, an den ent- 
sprechenden Stellen auf der Seite Platz freizulassen. 


Nach dem Ausdruck der Zeitungsseite befestigt man 
entsprechende Schwarzweißfotos. Die einzelnen Sei- 
ten werden mit einer guten Kopiermaschine verviel- 
fältigt. Das die Programmierer von PageSetter an ge- 
gebenenfalls auftretende Speicherplatzprobleme 
gedacht haben, zeigt sich im Menüpunkt Preferen- 
ces. Memory Cleanup führt einen Speicher-Refresh 
aus. Mit QuickMove wird der Inhalt einer Text- oder 
Grafikbox während des Verschiebens nicht ange- 
zeigt. Dies spart ebenfalls Speicher. Tritt die Situa- 
tion ein, daß der zur Verfügung stehende Speicher- 
platz keine Programmoperationen mehr zuläßt, so 
lößt PageSetter sogenannte Notmaßnahmen aus. Das 
gesamte Dokument wird unter dem Filenamen 
„Emergency.save" abgespeichert. Text- und Grafik- 
puffer der in Arbeit befindlichen Seite werden „ge- 
rettet‘. Die Ursache dieser auftretenden Speicher- 
platzprobleme liegt eindeutig am PageSetter. Da im 
Programm kein Bank-Switching vorgesehen ist, wer- 
den nur 512 KByte adressiert. Selbst bei einem auf 
zwei Megabyte ausgebautem Amiga wird der ver- 
fügbare Speicherplatz knapp. Insgesamt gesehen ist 
PageSetter ein leistungsfähiges Softwarepaket, das 
hilft, die „hohe Kunst“ des Desktop-Publishing zu er- 
lernen. In Kürze gibt es PageSetter in einer vollstän- 
digen deutschen Version mit Umlauten und allen 
Menüs in deutscher Sprache. 

(Roger Schmidt) 

Bezugsquellen: 


Deutsche Version: Interplan GmbH 
— Auftragsabwickluni 5.3 
Mae 34 

München 19 
Preis: DM 399.- 
Englische Version: Softwareland 
Franklinstraße 27 


CH-8050 a (Schweiz) 
Preis: DM 


WILL 


Das deutsche Seenotrettungswerk wird ausschließlich durch 
freiwillige Zuwendungen finanziert. Zum Beispiel auch durch 


Ihre Spende. 


Deutsche Gesellschaft zur Rettung Schiffbrüchiger 
Werderstr. 2, 2300 Bremen 1 - Postscheck Hamburg 
(BLZ 20010020) 7046-200 wir danken für die gespendete Anzeige 
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Raketen 


SDI — Drei Buchstaben, sind zum 
Inbegriff für technologischen Fort- 
schritt, Wettrüsten und nuklearen 
Holocaust geworden. Spielerisch hat 
sich Cinemaware dieses brisanten 
Themas angenommen und ein 
Actionspiel von zweifelhafter Güte 
und Thematik produziert. 


SDI soll an den Verkaufsknüller „Defender of the 
Crown“ anknüpfen. Geboten wird ein simples Bal- 
lerspiel mit Strategieelementen. Die dem Spiel zu- 
grundeliegende Geschichte scheint harmlos, ist 
aber hanebüchen: Commander McCormick — Ame- 
rikaner, Astronaut und Held — liebt Natalja — Rus- 
sin, Astronautin und unemanzipiertes weibliches Ge- 
schöpf — seit einem gemeinsamen Trip zum Mars. Im 
goldenen Oktober des Jahres 2017 ereilt die beiden 
das Schicksal in Form einer Revolte des KGB. Der 
KGB besetzt Raketenbasen und Raumflughäfen der 
UdSSR und fordert die rechtmäßige Regierung der 
Union der Sowjetrepubliken auf zu kapitulieren. 
Gleichzeitig werden die USA aufgefordert, SDI (Stra- 
tegische Verteidigungsinitiative) aufzugeben. Das 
Ultimatum des KGB wird zurückgewiesen, und zwei 
Stunden später ist Commander McCormick auf per- 
sönlichen Wunsch des Präsidenten unterwegs, um 
die Revolution niederzuwerfen. Seine Befehle sind 
militärisch knapp formuliert: 

— Zerstörung der feindlichen Bomber 

— Reparatur beschädigter Satelliten 

— Vemichtung russischer Raketen und 

— falls möglich, Befreiung der Astronautin Natalja. 
Die Mission startet in der SDI-Weltraumstation. Auf 
drei überdimensionalen Monitoren werden Sateli- 
ten, Status, Raketenkoordinaten und Zielgebiete an- 
gezeigt. McCormick informiert sich anhand dieser 
Bildschirme über den momentanen Zustand der 
Welt. Danach besteigt er seinen Raumgleiter und 
rettet den Präsidenten, Menschheit und Erde. Die 
Grafik des Spiels beeindruckt durch zeichentrick- 
ähnliche Animationssequenzen. Am beeindruckend- 
sten ist die langsam ins Bild gleitende Weltkugel am 
Spielanfang. Originell ist der Abspann in Form einer 
Kinoleinwand nach verrichteter Leistung. Ein Spiel 
im Spiel ist die Befreiung der geliebten Russin Natal- 
ja aus den Fängen des KGB an. Das Spiel weckt 
Agressionen, die sich im Rahmen dessen halten, was 
mittlerweile auf bundesdeutschen Monitoren üblich 
ist. Der strategischen Verteidigungsinitiative ist wohl 
nur auf dem Computerbildschirm noch mancher 
Sieg sicher. 
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Das Schicksal der Erde liegt in der Hand eines einziges 
Mannes: Commander McCormick 


N 


FRSIBBREMENENAIUL AP 
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BULLETIN: PENTAGON REPORTS ALL SDI SAT 
Weißes Haus, Washington D.C.: Alle SDI-Satelliten sind 


zerstört und McCormick seines Kommandos enthoben. Die 
Vereinigten Staaten erklären Rußland den Krieg. 


Programmname: SDI 


Computer: Amiga 0 1 2 3 4 5 
Idee/Story: 

Grafik: 

Sound: 

Schwierigkeitsgrad: 

Spielspaß: 

Gesamteindruck: 

Spieltyp: Schießspiel 

Spieleranzahl: 1 

Besonderheiten: Keine 

Hersteller: Cinemaware 

Preis: DM 119.- 

Vertrieb: Softwareland, Franklinstraße 27, CH-8050 Zürich 


Nach einer umstrittenen Umsetzung 
von World Games versucht Epyx mit 
Winter Games einen erneuten Lauf 
zum Ziel. Das amerikanische Pro- 
grammierteam aus dem sonnigen Ka- 
lifornien möchte sich noch in diesem 
Jahr auf dem Amiga-Spielmarkt einen 
Platz sichern. An zwei neuen Spielen 
wird zur Zeit fleißig programmiert. 


Joystickathleten können sich diesmal in einer Win- 
terlandschaft austoben. In sieben Disziplinen wer- 
den maximal acht Spieler hart gefordert. Neben 
Tournament, gibt es zum Üben einzelner Sportarten 
den Trainingsmodus. Wettkämpfe können zusätzlich 
in Einzeldisziplinen geführt werden. Ergebnisse der 
besten „Kämpfer“ werden in einer Weltrekordliste 
abgespeichert. Für Gewinner gibt es abschließend 
eine Siegerehrung — untermalt mit der jeweiligen 
Nationalhymne. Ablauf und Spielgeschehen glei- 
chen der C64-Version. Was begeisterten „Sportlern" 
sofort auffällt, sind die neu gezeichneten Bilder. Mit 
32 Farben baut der Amiga Illusionen einer Winter- 
landschaft auf. 


Tricks beim Trickski 


Beim Trickski, ist mit Fire, SO, W, N noch immer eine 
Idealnote von 10 Punkten zu erreichen. Beim Biathlon 
wurde sinnvollerweise die Laufstrecke reduziert, um 
die Disziplin nicht zu eintönig zu gestalten. Der Bild- 
hintergrund scrollt jetzt im Spielgeschehen mit. Eis- 
kunstlauf und Skispringen sind so gut gelungen, daß 
man den Eindruck eines joystickgesteuerten Trick- 
films bekommt. In den Disziplinen Eisschnellauf und 
Bobfahren hat sich grafisch im Vergleich zum C64 
kaum etwas verändert. Trotz gleichgebliebener Me- 
lodien und Geräuschuntermalung in einzelnen Sport- 
ereignissen klingt der Sound jetzt voller und dynami- 
scher. Die Medaillenvergabe läßt sich durch Druck 
auf den Feuerknopf abkürzen. In der neugestalteten 
Eröffnungszeremonie kann der Blitter (Teil des Gra- 
fikchips) zeigen, zu welchen Leistungen er imstande 
ist. Drei Tauben fliegen hier abwechselnd in kunst- 
voll animierten Bewegungen über den Monitor. 
Epyx zeigt mit dieser Sportsimulation, daß Adaptio- 
nen von C64-Spielen durch verbesserte Grafik und 
Sound auch den 16-Bit-Computern gerecht wird. Im 
Vergleich zu World Games schneidet Winter Games 
eindeutig besser ab. 

(cpl/ros) 
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port in Eis und Schnee 


Feierliche Eröffnungszeremonie der „Amiga-Winter- 
Olympiade“: Ein Läufer entzündet das ol ische Feuer. 


Beim Langlauf in der Biathlon Disziplin heißt es Kraft 
sparen. Eine ruhige Hand wird in den anderen Sportarten 
noch dringend benötigt. 


Programmname: Winter Games 


0 1 2 3 4 5 
Idee/Story: 
Grafik/ Animation: 
Sound: 
Schwierigkeitsgrad: 
Spielspaß: 
Gesamteindruck: 
Spieltyp: Sportsimulation 
Spielerzahl: 1bis8 
Besonderheiten: Keine 
Hersteller: Epyx 
Vertrieb: Softwareland, Franklinstraße 27, CH-8050 Zürich 
Preis: DM 79.- 
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Diamanten 


Spiele unter 80 Mark waren bislang 
für den Amiga nicht zu finden. Dia- 
mond Software, das junge Program- 
miererteam aus Karlsruhe füllt die 
Lücke mit erstklassigen Produkten. 


Als 1986 der Commodore Amiga in der Frankfurter 
Oper vorgestellt wurde, gab es Amiga-Programme 
nur aus den USA. Die meisten Programme waren 
einfache Adaptionen bereits bekannter C64-Pro- 
gramme. Der Preis lag meist bei über 100 Mark. An- 
dreas Hommel erkannte, daß sich hier eine Markt- 
lücke auftat. Im Herbst 1986 brachte er zusammen 


mit Oliver Czela eine Variante des Spielhallenklassi- Zantastische Grafik- und Soundeffekte in allen Diamond- 
Programmen. 


Ballerspiel Phalanx. Auf dem Amiga 1000 gibt es be- 
reits eine lauffähige Version. Wie Czela uns auf der 
CeBIT '87 mitteilte, gibt es noch einige kleine 
Schwierigkeiten bei der Amiga-500-Version. Drei 
weitere Projekte sind ebenfalls bei Diamond Software 
in Arbeit. Garrison ist eine Art Fantasiespiel ähn- 
lich Gauntlet. Cruncher Factory wird eine PacMan 
Variante. Mit A-Mon gibt es ein neues Tool für Pro- 
grammierer um digitalisieren Klänge abzuspei- 
chern und Bobs (Softwaresprites) zu editieren. 
Außerdem hat Diamondsoftware den Vertrieb von 
| Investor, einem Aktienverwaltungsprogramm über- 

Bea nommen. Es ist also in Zukunft noch einiges Neues 

Sa von Diamond Software zu erwarten. 

d (ros) 

Bezugsquelle: Kingsoft F. Schäfer 
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Mit Ball und Joystick durch die Wan 


kers „Meteroids“ auf den Markt. Innerhalb kürzester 
Zeit entwickelte sich „Space Battle" mit seinen digita- 
lisierten Soundeffekten zum Verkaufsschlager. Der 
besseren Vermarktung wegen schlossen sich An- 
dreas Hommel, Martin Aberle und Franz Hess zu der 
Firma Diamond Software zusammen. Auf Space Battle 
folgte der C-Monitor, ein Maschinensprachemonitor 
der für jeden ernsthaften Amigaprogrammierer ein 
nützliches Tool darstellt. Mit der Zeit wuchs das Soft- 
wareteam auf sieben Programmierer an. Oliver 
Czela, Spezialist in Sachen Kopierschutz und Floppy- 
laufwerk programmierte das erste deutsche Kopier- 
programm auf dem Amiga. Inzwischen gibt es be- 
reits die dritte Version dieses überaus zuverlässigen 
Master Copy's. Martin Aberle hat gerade die Arbeit 
an seinem Spiel Demolition beendet. Ein Spiel, das 
ähnlich dem Spielhallenerfolg „Arkanoid“ vom Spie- 
ler Geschicklichkeit und gutes Reaktionsvermögen 2 

fordert. Czela und Aberle arbeiten zur Zeit an dem Beim Ballerspiel „Phalanx“ ist schnelle Reaktion gefragt. 
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Schwarz auf weiß 


Unison World bringt mit Print Master 
Plus ein Druckprogramm der Spitzen- 
klasse. Als Alternative zu DeLuxe 
Print soll es die Gunst der Amiga- 
anwender erringen. 


Der Rechtsstreit zwischen Broderbund und Unison 
World ist beendet. Streitpunkte waren Benutzerfüh- 
rung und Routinen der C64-Programme Print Shop 
und Print Master. Broderbund beschuldigte die 
Print-Master-Hersteller abgekupfert zu haben. Das 
Gericht entschied, daß Gestaltung und Art der Me- 
nüs eines Programmes schutzwürdig sind. Unison 
World hat durch Verwendung Printshop-ähnlicher 


Staflekeny 


uzuS Card 


Calendar 
Graphic Editer 
Set 
Exit to Hunkbench 


u keys to move 
t Mouse button ta seleot 


Press Ike Ken or de le 


Printmaster im Printshop-Design 


Menütechniken das Copyright von Broderbund ver- 
letzt. Produktion und Verkauf von Print Master muß- 
ten sofort eingestellt werden. Zum jetzt erschienenen 
Print Master Plus gibt es allerdings kein Konkurrenz- 
produkt von Broderbund. Nach Programmstart er- 
scheinen wie in der C64-Version folgende Menü- 
punkte: Sign (Plakat), Stationary (Briefkopf), Greeting 
Card, Banner, Calendar, Graphic Editor und Setup 
(Druckereinstellung). Den jeweiligen Optionen sind 
Bilder beigefügt, so daß für nicht englischsprechen- 
de Anwender das Programm trotzdem leicht ver- 
ständlich ist. Ob eine deutsche Version mit Umlauten 
erscheint, ist fraglich. Wichtigstes Kriterium bei 
Druckprogrammen ist, ob und in wie weit sich be- 
reits vorhandene Drucker benutzen lassen. Die Aus- 
wahl der unter Setup angebotenen Druckertreiber 
läßt — auf den ersten Blick — Schlimmes ahnen. Auf- 
geführt sind nur die in Amerika gebräuchlichen 
Drucker. Epson- und Star-kompatible sind darunter 
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vertreten. In der Anleitung nicht erwähnte Printer 
laufen unter diesen Modi. Dabei darf man sich nicht 
wundern, daß zum Beispiel der alte Epson RX80 F/t 
beim Betrieb über ein Centronicskabel als STAR- 
GEM angesprochen werden möchte. Probieren 
heißt hier die Devise. Die Menüpunkte Sign, Statio- 
nary, Greeting Card, Banner und Calendar haben 
sich gegenüber der C64-Version nicht verändert. 
Der Graphik-Editor wurde, den Möglichkeiten des 
Amiga entsprechend, verbessert. Dem Benutzer ste- 
hen zwei zusätzliche „Art Galleries“ mit insgesamt 
280 neuen Bildern zur Verfügung. Alle Grafiken kön- 
nen mit Hilfe des Graphic-Editors in das Hauptpro- 
gramm eingeladen und bearbeitet werden. Dies ist 
teilweise nötig, da Motive und verwendete Symbole 
stark auf den amerikanischen Markt abzielen. 
Gleichgeblieben ist die Anzahl der zur Verfügung 
stehenden Borders (Umrandungen) und der Schrift- 
sätze. Print Master Plus bietet dem Amigabesitzer 
jetzt die Möglichkeiten Grußkarten, Kalender und 
Briefköpfe zu drucken. Die Qualität des Ausdrucks 
entspricht der C64-Version. Die Printmaster Plus- 
Entwickler haben gegenüber Printshop wesentlich 
bessere Druckroutinen verwendet. So wurde der 
gesamte Druckweg optimiert. Der Druckkopf fährt 
nicht mehr die gesamte Zeile ab, sondern geht nach 
dem letzten gedruckten Zeichen in die darunterlie- 
gende Zeile. Bei Druckzeilen ohne Inhalt wird ein 
automatischer Zeilenvorschub ausgelöst, um Zeit zu 
sparen. Um die bei großen Farbflächen auftreten- 
den Streifen zu unterdrücken, wurde ebenfalls eine 
neue Routine programmiert. Sind vom Benutzer Moti- 
ve, Umrandungen und Text festgelegt, gibt es ähn- 
lich der C64-Version den Menüpunkt Preview/Print. 
Im verkleinerten Maßstab zeigt Print Master Plus zu- 
erst die Vorderseite und die Rückseite des späteren 
Ausdrucks. Vor Druckbeginn bekommt der Anwen- 
der hier eine letzte Möglichkeit, Änderungen vorzu- 
nehmen. Das positive Vorzeichen im Namen bezieht 
sich deshalb mehr auf die neue Rechnerkonfigura- 
tion, als auf programmtechnische Weiterentwicklun- 
gen des bekannten Programms. Professionelle An- 
wendungen sind damit kaum möglich. Dazu ist das 
Programm zu umständlich in der Benutzerführung 
und zu langsam beim Nachladen der einzelnen Pro- 
grammodule. Hobby-Anwender, deren Interessen 
im spielerischen Umgang mit Rechnern liegen, sind 
mit diesem Programm hervorragend bedient. 
(cp!) 
Preis: Printmaster Plus DM 119,— 

Art Gallery! DM 69,— 

Art Gallery II DM 69,— 
Bezugsquelle: Softwareland 

Franklinstraße 27 
CH-8050 Zürich 
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verlängert 


Viele Anrufe zu unserem Video-Wett- 
bewerb erreichen täglich die Redak- 
tıon. Einhellige Meinung: Tolle Idee, 
aber die Zeit ist zu kurz! 


Natürlich kommen wir gerne der Bitte um Verlänge- 
rung der Zeit nach. Neuer Einsendeschluß ist der 16. 
6. 87. Für alle, die sich erst jetzt zum Mitmachen ent- 
scheiden, noch einmal die Bedingungen. 

Jeder Amiga-Anwender kennt die Electronic Arts 
Programme „Deluxe Paint“ und „Deluxe Video" 
und weis ihre Vorzüge zu schätzen. Schnell lernt man 
die Handhabung der beiden Sets, wer jedoch kein 
Talent zum Zeichnen hat, stellt fest, daß die Ausar- 
beitung einer animierten Sequenz viel Arbeit bedeu- 
tet. Das AAM-Team hat bereits zwei Filme „ge- 
dreht"! Apocalypse und Starbird sind für je 98,— 
Mark erhältlich. Den beiden Construction-Sets sind 
ausführliche Handbücher beigelegt. Sie vermitteln 
Tips und Tricks zum Erstellen eigener Animationen 
auf dem Amiga. 

RUN und das AAM-Team rufen alle Animations-Fans 
zum großen Wettbewerb auf: Gesucht werden die 
besten animierenden Grafiken. Ganz gleich mit wel- 
chem Grafikprogramm Sie arbeiten, oder welche 
Hilfsmittel herangezogen werden. Der Kreativität 
sind keine Grenzen gesetzt. Selbstverständlich sind 
auch eigens entwickelte Animationsprogramme er- 
laubt. Die Länge der Filmsequenz spielt keine Rolle. 
Egal, ob kleiner Cartoon oder minutenlanger Trick- 
film, Originalität ist gefragt. 

Den Siegern winken attraktive Preise: 

1. Preis: 2000 Mark und eine Einladung zum AAM- 
Team in München 

2. Preis: Besuch eines Trickfilmstudios in München 
mit dem AAM-Team 

3. bis 22. Preis: Je ein von AAM-Team produziertes 
Construction Set zum Entwickeln eigener Videoclips 
En plus werden alle Teilnehmer im Falle einer Ver- 
öffentlichung ihres Clips prozentual am Gewinn be- 
teiligt. 


Bitte geben Sie bei der Einsendung an, mit welchem 
Programm der Clip erstellt wurde. Einsendungen 
auf VHS-Videokassette sind ebenfalls möglich! 
RUN-Redaktion 

Kennwort: Videoclip 

Rheinstraße 28 

8000 München 40 
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Wettbewerb 


DA GEHT 


DIE POST AB! 


Kerkloh - Tornsdorf 


große 
| | Buch 


Ein DATA BECKER Buch 


Open |, 8, 15, “$: TEST”: Close 1. Entweder 
Sie tippen diesen Befehl im Schlaf vorwärts 
und rückwärts, oder er ist für Sie eine Art 
Alptraum. Genauso wie viele andere 
Dinge am Commodore 64, die Ihnen bisher 
den Spaß, den so ein Computer machen 
kann, verleidet haben. Die Lösung heißt 
GEOS. Das große GEOS-Buch hilft Ihnen 
aber nicht nur mit praktischen Tips beim 
Einsteigen ir das neue Betriebssystem, son- 
dern bringt auch handfeste Informationen 
- bis hin zum fast hundert Seiten langen 
Kapitel „GEOS INTERN”. Auch wenn Sie 
jetzt noch nichts davon verstehen, nach 
diesem Buch verwenden Sie GEOS FAST 
LOAD in eigenen Programmen, wissen 
alles über die File-Struktur und schreiben 
Programme im GEOS-Look. 

Das große GEOS-Buch 

Hardcover, 350 Seiten, DM 49,- 


Ein DATA BECKER Buch 


GEOS kann viel. Erst recht, wenn man die 
nötigen Tips und Tricks beherrscht. Was 
machen, wenn GEOS nicht laden will? Wie 
erstellt man Serienbriefe mit GEOWRITE? 
Wie bekommt man für jede Diskette auto- 
matisch die richtige Mausgeschwindigkeit? 
Weit über 50 Tips und Tricks zeigen Ihnen 
alle versteckten Möglichkeiten. Gespickt 
mit einer Fülle von Programmen. Ein kleines 
Beispiel: Das Programm Sicherheitskopie - 
die GEOS-Kopie läßt sich nun auch laden 
und starten. Oder EDMON - ein vollstän- 
diger Maschinensprache-Monitor unter 
GEOS. Oder FOND-EDITOR - bestehende 
Zeichensätze können geändert oder völlig 
neue erstellt werden. Oder... Am besten, 
Sie schauen gleich selbst mal rein, denn 
dieses Buch ist so vielfältig wie GEOS 
selbst. 

GEOS Tips & Tricks 

Hardcover, 310 Seiten, DM 49,- 


Mit dem superpreiswerten AMIGA 500 
und dem superstarken AMIGA 2000 hat 
COMMODORE zwei heiße Eisen im Feuer, 
die die deutsche Computerlandschaft 
deutlich verändern werden. In dem brand- 
aktuellen DATA BECKER Buch "Das können 
AMIGA 500 & 2000” kann man bereits 
Näheres darüber erfahren. Neugier, Ent- 
scheidungshilfe oder einfach nur Vorfreude 
auf zwei faszinierende Computer. Dieses 
Buch ist genau richtig für Hunderttausende 
von Computerfans, die nur auf den 
Augenblick gewartet haben, wo der 
AMIGA endlich für jedermann erschwing- 
lich ist. Tag- und Nachtarbeit und enge 
Kooperation mit COMMODORE haben 
dafür gesorgt, daß es trotz Aktualität 
keine Kompromisse bei der inhaltlichen 
Qualität gibt. 

Das können AMIGA 500 & 2000 
190 Seiten, DM 29,- 


Einen absoluten Kopier- und Programmschutz - gibt es den? Wir glauben schon. 
Und mit dem großen Anti-Cracker-Buch haben Sie das Wissen, ihn selber für 
Ihre Programme zu nutzen. Es bietet fertige Lösungen mit komplett dokumen- 
tierten Listings aller gängigen Kopierschutzverfahren und jede Menge 
Anregungen. Für Ihre BASIC-Programme, aber auch für Programme in 
Maschinensprache. Für Kassetten-, aber auch für Diskettenprogramme. 
Dabei brauchen Sie kein Profi zu sein, denn alles wird ausführlich 
erklärt: die Tricks des Autostart, Illegal Opcodes, die Nutzung von 
Track 36 bis 41, Half-Tracks, Killertracks und und und. Besonders 
wichtig dabei: Der Kopierschutz sollte wiederum geschützt 
werden, z.B. mit dem Einzelschrittdecodierer. Selbst die 
gefürchtetsten Knack-Module kommen an Ihre Programme 
nicht mehr ran. Denn auch hier verrät Ihnen das Buch, wie 
man sich wirkungsvoll vor ihnen schützt. Das große Anti- 
Cracker-Buch lüftet die Geheimnisse wirkungsvoller 
Kopierschutzverfahren und zeigt Softwarehäusern, wie 
erfolgreiche Cracker vorgehen. 
Das Anti-Cracker-Buch zum C 64 /C128 
384 Seiten, DM 39,- 


DATA BECKER 


| Merowingerstr. 30 - 4000 Düsseldorf -Tel. (0211) 310010 
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Bestellschein bitte ausfüllen und 

ggf. mit unterschriebenem 
Verrechnungsscheck 

in einem ausreichend fran- 

kierten Umschlag schicken an: 
CW-Publikationen 

Verlagsgesellschaft mbH — Vertrieb 
Postfach 40 04 29, D-8000 München 40 


Verrechnungsscheck über DM 14,— (DM 12,— Heft- 


ich bestelle das RUN-Sonderheft direkt beim Verlag. 
a, Zahlungsweise (Zutreffendes bitte ankreuzen): 
ES * preis + DM 2,— Rückporto) liegen bei. 


[] Den Gesamtpreis in Höhe von DM 14,— (DM 12, 
* Heftpreis + DM 2,— Rückporto) habe ich auf Postgiro- 
Konto Nr. 2339 00 808, Postgiroamt München, mit dem 
Vermerk »RUN-Sonderheft 1/87« überwiesen. 
* Inlandpreise 


—= — 
Name/Vorname 
2 
Straße/Nr 
PLZ/Ort 
Unterschrift 
Datum SH 6 


Am einfachsten bestellen Sie 
mit diesem Coupon. 
Ausfüllen, abtrennen und 
ausreichend frankiert im 
Kuvert ab die Post an: 
CW-Publikationen 

Vertrieb RUN 

Postfach 40 04 29 

D-8000 München 40 


WIE TOMELOMERHLER 


Ich verschenke RUN zum Bezugspreis von DM 68.— 
(12 Ausgaben), inkl. MwSt. und Lieferung „frei Haus“, 
Auslandsendpreis: DM 78.—, für die Schweiz sfr 74.— 
Luftpostversand auf Anfrage. 


Adresse des Bestellers (Rechnungsanschrift): 


Name Vorname 

Straße, Nr./Postfach 

PLZ Wohnort 

Datum nterschrift 
Adresse des Beschenkten: 
Name Vorname 


Straße, Nr./Postfach 


Wohnort 


Macht Spaß, ist nützlich 
und kommt 12 mal pro 
Jahr ins Haus. Ein 
Geschenk mit bestem 
Erinnerungswert. 


CW == PUBLIKATIONEN 
n... 
172 


Ihre starke Verbindung zur Computerwelt 


1 60oschenk-Abo Bestellcoupon 


Laufzeit des Geschenkabonnements: 


[] Das Abonnement soll sich nach einem Jahr 

automatisch um weitere 12 Monate verlän- 
gern, wenn es nicht acht Wochen vor Ablauf 
gekündigt wird. 

[] Das Abonnement soll auf ein Jahr (12 Ausga- 
ben) begrenzt sein. 


Garantie: 

Ich weiß, daß ich diese Vereinbarung innerhalb von 
8 Tagen bei der Bestelladresse widerrufen kann. 

Zur Fristwahrung genügt die rechtzeitige Absendung 
des Widerrufs. Ich bestätige dies durch meine zweite 
Unterschrift. R 


Unterschrift 


Gewünschte Zahlungsweise: 


Datum 


[ Bequem und bargeldios durch Bankabbuchung 
Bankleitzahl (vom Scheck abschreiben) Geldinstitut 


Kontonummer/Inhaber 


Gegen Rechnung, zahlbar sofort nach Erhalt 


Wollen Sie kaufen oder verkaufen? Dann liegen Sie 
richtig mit Ihrem Angebot im RUNBOARD mit 
preiswerten Kleinanzeigen! Hier finden Sie alles 
rund um Ihren Computer. Wir berechnen für 6 Zei- 


len 5,— DM und für jede weitere Zeile 1, 


— DM. 


Benutzen Sie für Ihre RUNBOARD-Anzeige unsere 


Verkaufe Hardware 


AMIGA, 512 KB neuwertig, 2 Mona- 
te alt. Garantie, Basis-Paket und di- 
verse Programme, 2. B.: TextCraft 
und Flugsimulator, Komplett 1500 
DM. Michael Zorm, Tel. 040/5253575 


Verkaufe Epson-RX-80-Drucker, 
neuwertig, kaum gebraucht, VB DM 
650,— inkl. Epson-Software-Interface. 
Suche noch Anwender-Software. 
Günter Dürr, Königsallee 82, 7140 
Ludwigsburg, Tel. 0 71 41/2 59 74 ab 
17.00/tagsüber 07 11/8 96 25 60 


Verkaufe wegen Systemwechsel: 
Floppy 1541 + 53. Disks + Diskbox. 
Alles bloß 9 Monate alt! Preis: 350 
DM. Floppy in letzter Zeit kaum ge- 
braucht. Tel. 02327/52028 ab 18 


Uhr 

plus für neue Floppy! *** 
Original und neuwertig *** mit F- 
Copy Ill für 95,— abzugeben. Moers, 
Tel. 02841/341 17nach 17 Uhr 


Disketten/1l0 No Name ID 3,50/10 
No Name 2D 9,50/10 No Name 
MF2DD 39,50/und, und ... Amiga-Zu- 
behör. Liste kostenlos. Ernst-W. Mas- 
ke, Neuer Weg 15, 2061 Sülfeld, Tel. 
0 45 37/4 18 


Drucker CP80-X für C64/128 zu ver- 
kaufen, 80 Z/sec., tadelloser Zustand, 
DM 420,—, T. 0221/8543327 ab 18 Uhr 


AMIGA-Anleitungen: Suche + tau- 
sche gegen gute Anltg. Habe dt. 
Übersetzungen. Liste gegen frankier- 
ten Rückumschlag von Jürgen Sonne- 
bom/Postfach 1307 36/5600 Wup- 
pertal | 


Verk. super Betriebssystemkarte für 
bis zu 8 Betr. in einem EPROM 2764 
bis 27512, 40 DM und Betr.-Karte für 
128er für bis zu 7 Betr. in EPROM 
2764 bis 27512, 45 DM. Tel. 02851/ 
75 90 ab 16 Uhr 


Turbo-Betriebss. für Datasette mit F- 
Tastenbelegung, Kompatibel, da 
kein Speicherplatzverlust. Mit Um- 
schaltplatine und Einbauanleitung für 
45,— DM zu verkaufen. Tel. 0 2851/ 
75 90 ab 16 Uhr 


C-64, Floppy, Datasette, Joyst. ca. 
120 Disketten (+ SW) vB 900. Epson 
RX80FT + Parallelk, VB 850. Wie- 
sem.-Interf, 92000/G VB 120. Alle 
64er + 7 SH VB 250. G. Krause, Par- 
chetstr. 16, 8120 Weilheim 


Verkaufe C64 + 1541 + Data- 
sette 1531 + 10 Disks + 2 Kassetten + 
l Joystick + Schwarzweiß-Fernseher. 
Angebote an: Martin Reichelt, Im 
Kampe 11, 3201 Holle 1 


Verkaufe wegen Systemwechsel: C- 
64, VC-1541 + 40T.Dbs, Grün-Moni- 
tor, Dataphon S21D, Rex-Eprommer, 
Externes Betriebssystem, Joy, 100 
Disketten, div. Zeitschriften! Zusam- 
men: 1437 DM. Tel.: 0.40/6 03 39 20 


SYSTEMWECHSEL! Verkaufe: C64, 
Floppy, LX90, Disks sowie DB-Bü- 
cher. Werktags: 0 54 31/40 88, sonst: 
38 84 
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Verkaufe C64 + Floppy 1541 + MPS 
803 + VC 1530 + viel Software, Bü- 
cher, Disketten etc, Wenig benutzt, 
orig.-verp. VB: sfr. 850,—. M. Klee- 
mann, Freiendorfstr. 535, FL-9493 
Mauren, Liechtenstein 

** Verkaufe—tausche ** Commodo- 
re-Drucker MPS 801 mit Zubeh. für 
DM 180 oder tausche MPS 801 + 
VC20 mit viel Zubehör gegen guten 
C64. Gartner H., 07 21/47 27.07 


Verkaufe PC 128 + 1571 + Philips- 

Grünmonitor + W90000G-Interface 

+ div. Bücher + Disks +++ NP: 

2400 DM, VB: 1550 DM, auch Einzel- 

verkauf. Infos bei: Thomas Schmidt, 

rn 94, 4358 Haltern, 023 64/ 
16 


C16/64 K + Datasette m. Defekt An- 
gebote unter Tel. 080 81/48 24 An- 
rufbeantworter — Rückruf garantiert 
am selben Tag. 


C16 + 64K + Datas + Joy + Adap. 
+ ca, 50 Top-Prg. (Yie Are, Int. Kara- 
te, Saboteur, W-Olympiade) + 9 Bü- 
cher + 10 Sonderhefte + Sonstiges 
evt. + 5 Disks, ca. 100 Top-Prg. NP 
ca. 1000 für VB: 700,—. 02 08/65 19 72 
nach 17.30 Uhr 


64er DOS-Betriebssystem aus der 
64er DM 40,— + NN. Tel.: 02 21/ 
43 69.09 

Videodat-Decoder (WDR-Computer- 
Club), für alle Rechner mit RS232- 
Schnittstelle, betriebsbereit mit An- 
leitung DM 80,— + NN. Tel.: 02 21/ 
43 69 09 


PROLOGIC DOS Neu 29,— für 
199,— zu verk. R. Pieroth, Peterstr. 4, 
6052 Mühlheim, Tel. 0 61 08/6 70 16 


VERKAUFE C 128 und FLOPPY 1571 
1000 DM, Farbmon, Sanyo CD 3185A 
500 DM, Data-Becker-Bücher. Preis 
VB. Wolfgang Roessel, 0 71 51/86. 88 


1541 DM 350 + Drucker Sei- 
kosha SP-180VC (neuwertig) 550 DM, 
Drucker Seikosha GP550AVC DM 
450, Textcomp. 600 DM, Kugelkopf- 
SM 600 DM. GSG, 5143 Wassenberg, 
Btx. 024 323 602+3 600. 


Btx-Modul f. C64/128 + PCs 300 
DM. GSG, 5143 Wassenberg 123 RN, 
Info 5 DM. 

AMIGA, 512 KB, neuwertig, 2 Mona- 
te alt. Garantie, Basis-Paket und di- 
verse Programme. Z. B.: TextCraft 


und Flugsimulator. Komplett 1500 
DM. Michael Zorn, Tel. 040/ 
525 35 75 


Notverkauf! Amiga + Sidecar (IBM- 
komp.), neuwertig! Tel. 02 34/8 70 10 
ab 16 Uhr 


#kk COMIN ’64 TERMINAL *** 
Modem + Progr. + Beschr. für RTTY 
+ CW + STTV + Fax-Satelite-Wet- 
ter-Karte Decoder zusammen DM 
100,—. Nur Fax-Platine DM 30,— *** 
KOPIERADAPTER C 64 *** Dataset- 
te zu Datasette, kein Kopierschutz 
wirksam DM 30,—, Nachnahme + 
DM 7,50. B. Th. v/d PLUIJM STEL- 
LENDAMHOF 66, NL-3086 ZB ROT- 
TERDAM, Ruf 0032-1/1 04 81 37.08 
2.2.3 Für K 64 ak 


WERREROMECOMERRLERRVORBITEEN 


Vordrucke. In diesem Heft finden Sie unsere Karte 
auf Seite 131 Für weitere Informationen können Sie 
Marianne Gad anrufen, Tel. 0 89/3 60 86-201. 


Anzeigenschluß der nächsterreichbaren Ausgabe 
ist Mittwoch, der 13. Mai 1987. 


Verkaufe für C 64 Roos-80-Zeichen- 
karte mit Textverarbeitungs-System. 
Fast neu, Preis 120,— DM. C.-P. 
Dudy, Tel. 0 60 81/1 62 22 


Verkaufe Software 


| Verkaufe Original-Soft! 
Knight Rider (C) 10,—, Koronis Rift © 
10,—, R. Petty's Rennzirkus (C) 10,—; 


Liste anfordern!!! Jochen Hank, Köl- 
I nerStr. 35, 5533 Hillesheim/Eifel. @ 


AMIGA IS IT! 

ASS ist wieder da! — Ganz auf 
AMIGA eingestellt. Für alle Freaks: 
Amiga-Soft topaktuell und zuverläs- 
sig! — Info: ASS, Postfach 46, A-6230 
Brixlegg 

Programmpaket VEREINSVER- 
WALTUNG 5 Programme: Mitgl.- 
Verw., Kassenbuchführung, _Bei- 
tragseinzug, Listprogr., Minitextver- 
arbeitung.‘ Nur auf Disk. Drucker 
MPS801 u. Kompatible; DM 35,00; H. 
Peters, Nordstraße 46, 4730 Ahlen 


alle 

H. Koster, Eschenweg 11, 54 Koblenz, 
Tel.: 02 61/4 42 24. Info gegen Frei- 
umschlag. 

C16/116 +Plus 4_ _SUPERSOFT- 
WARE! Verkaufe 20 Top-Programme 
auf Cassette für 30,— DM. Scheine im 
Brief an Susanne Kern, Hubertusstra- 
Be 14, 8103 Oberammergau. 

C16/116 +Plus 4 SUPERSOFTWARE 


Amiga BOB-MAKER Public Do- 
main B-M lädt IFF-Bilder und spei- 
chert beliebige Ausschnitte im Bob- 
Format ab. 

Disk gegen 20,— DM von S, Hart- 
mann, Am Rain 6, 3503 Lohfelden 1 
WEST-WORLD Ein Public-Domain 
Super-Game für den AMIGA. Disk 
gegen 20,— DM von S. Hartmann, Am 
Rain 6, 3503 Lohfelden I 


Rechtschreibtraining und LRS-The- 
rapie mit dem C64, für Schüler u. Er- 
wachsene. Informationen und Pro- 
gramme: Jens Neubert, Weißenburg- 
straße 14, 2300 Kiel 1, Tel.: 04 31/ 
155 33 


Programme PC 128 Programme 

2.B.: BRD-Vorwahlen/Plz. — 2 Disk 
65,— DM; Videothek 1000 Titel/ Adr.- 
Datei plus Ettik.-Druck aA 25,— DM; 
Tel.: 0 55 22/7 2939 


wikkPC 128 Floppy 1570/71 %** 
12 CPM-Progr. DM 28,—; 24 Progr. 
DM 40,—; Liste gegen Freiumschlag 
bei Vorauszahlung portofrei. N. Reı- 
nisch, Liegnitzstraße 5, 5208 St. Augu- 
stin 1 


WeikPC 128 Floppy 1570/71*%%** 
neue CP/M-PROGRAMME 
Liste gegen Freiumschlag 
bei Vorauszahlung portofrei 
N. Reinisch, Liegnitzstraße 5, 5205 St. 

Augustin 

Lotto-Btx-WG: BKZ UND _* 
940600666 # ; 5143 Wassenberg 123 
RN, Info 5 DM. 


ZU ERLEDIGEN = Super-Disk-No- 
tizprogramm auf Floppy gegen Ein- 
sendung von 10-DM-Schein an Vol- 
ker Scholz, Hellenthal-Str. 13, 6670 St. 
Ingbert, INFO abends 06894/ 
381301 


Rentenberechnung (BFA. LVA) auf 
dem C64/128! Bewährtes Programm 
mit den aktuellen Werten — anpass- 
bar an künftige Jahre! Info geg. 4,— 
DM; G. Runkel, Bickenbachstr. 62, 
5270 Gummersbach 

C16, 116, Plus 4 — Superspiele! Info 
gegen Rückporto bei Hannes Kalten- 
bach, Prielmayerstr, 16, 7990 Fried- 
richshafen 1 


Print Shop User....rnuuussnnnnnnnunennnnennr 
100 Icons auf Disk für 20,— DM Vor- 
kasse. W. Plieth, 5000 Köln 90, Frie- 
densstr. 110/W15. Die Icons liegen 
im 2-Block Format vor. 


Orig.-Software für C64 on Tape! z.B. 
Dragon’s L., Spindizzy ... Liste gegen 
80 Pig. in Briefm.. Michael Arendt, 
Gerhard-Hauptmann-Str. 2, 3070 
Nienburg 


AMIGA AMIGA AMIGA AMIGA 
Verkaufe meine komplette Public- 
, 3] Disketten für 


Dia-Shows, ‚ _Spi E 

r etc.) Tel.: "0.22 09/2 30.09 
C64 CLUBDISKETTE März C128 10 
Programme plus Bildschirmzeitung 
+ Clubinfo für 10,— DM beim DEUT- 
SCHEN FREE-SOFTWARE COMPU- 
TER CLUB; Auf der Heide 18, 3008 
Garbsen 1 


64 + 128 + 1541 + 1571 Copy for all 
bis Track 40 + Halftracks 25,— Eink.- 
Lohnsteuer 25,— Geos 50,— Word- 
star-DBase-Multiplan-128er je 100,— 
Data-Becker-Progr. je 50,— Drucker 
400,—; Tel.: 07 11/70 36 61 


4000 englische Vokabeln!!! enthält 
VOKABELPROF und fragt diese 
wahlweise Engl.-Deut. oder D.-E., 
Disk nur 25 DM. 25 DM an C. Lindhof, 
Schelmengraben 7, 6120 Michelstadt, 


90 versch. Rechenprogramme ent- 
hält Matheprof. Älles Menügesteuert 
auf Disk für 25 DM. Für Beruf, Schule 
usw. 25 DM an C. Lindhof, Schelmen- 
graben 7, 6120 Michelstadt 


160 Pokes für nur 10 DM!! 460 Su- 
perpokes + 300 Prg.-Pokes. Dieses 
verspricht ewiges Leben beim Spie- 
len! Schein an ©. Lindhof, Schelmen- 
graben 7, 6120 Michelstadt. 


EROTIKA 
das außergewöhnliche Adventure 
auf aufregenden Bildern, deutsch, 
C64, 3 Disk., 29,95 + NN, EROTIA II 
— 19,95, beide 39,95; H. Schmidt, 
Louise-Schroeder-Str. 7, 3000 Hanno- 
ver 6l 


* Notenverwaltung auf dem AMI- 
GA Bay. Realschulen * Erford.: 512- 
KB-Epsondrucker — mögl. 2 Laufwer- 
ke*Preis: 99 DM * Info geg. Freium- 
schlag*Dietmar Göbel, Fr.-Schub.- 
Str. 5, 8853 Wemding 


NEU KREUZWORTRÄTSEL C64 
Zum Erstellen und Lösen von Kreuz- 
worträtseln. Mit 50 Rätseln Disk DM 


30,—; ÖS 200,—. Info und Verkauf: 
FRE(64) USERCLUB, Postf. 45, A-5620 
Schwarzach 


NEU * CNC-SIMULATION f. C64/ 
128 zur CNC-Aus- u. Weiterbildung, 
Funktionen u. Zyklen n. DIN 66025. 
Disk m. Anleitung DM 70,—; ÖS 
490,—; Info, Verkauf: FRE(C64) USER- 
rag Postfach 45, A-5620 Schwarz- 
ac 


SUPER DREI MINUTEN BACKUP 

mit über 300 Parameter. Copy GEOS, 
NEWSROOM, FL.SIMULATOR 2 
ohne Fehler! Für C64/128. Schicke 3 
Disk, + 20 DM an A. BUNI, 3 F, Dura- 
four, 1220 Avanchets, Schweiz 


THOMAS SOFT 
TSAMADOU 4 10683 ATHINA, 
GREECE; FAST HACKEM V4lA = 
50 DM; GEOS V1.3 = 100 DM — 5 
DISKS 


THOMAS-SOFT TSAMADOU 4 

10683 ATHINA-GREECE; Software 
Commodore-Write for List-Original 
Programs-Top Gun-Bomb Jack II-Ma- 
ster 


Super Textadventure in Deutsch für 
C64. Die Drachenhöhle, Ein gefährli- 
ches Labyrinth, ein geheimnisvoller 
Schatz. 5 DM + Porto. Lieferung nach 
Zahlung. Info u. Bestellung bei M- 
Soft, Hindenburgallee 21b, 3043 Mün- 
ster 


#HVERKAUF*** 
Alte und neue Spiele für den 
C64!! |Suche außerdem ein Lotto- 


programm (C64) MEINE ADR.: Rene 
Alletter, Engweg 6, 6580 Idar-Ober- 
stein, Tel.: 067 81/2 7875 


C16/116/+4 
Biete grafische Benutzeroberfläche 
(ähnlich GEOS)I!! „GOOD" kostet 
10,— DM und ist sie wert! — Lionheart 
Soft — Goethestr. 73, 4230 Wesel 


DATEI-ASS-128 + LOTTO-ASS-128 
Für C128/80 Z. Disk je 30,—. Kurzinfo 
gegen Rückporto von Peter Hiel- 
scher, Am Wall 22, 4401 Saerbeck 


MATHEMATIK-PAKET 
C64, Matrizen, Funktionen, Approxi- 
mation, Splines, Kurvendiskussion, 
Pulldown-Menüs, graf. Darst., Disk 
40,— DM: Info anforderm! Tel.: 
0 67 52/82 18 


NUMEROLOGIE 
Zukunfts- u. Persönlichkeitsber. mit 
hebräischer, 1000 J. alter Zahlenma- 
gie. 20 Menüpunkte, 20 DM Disk/ 
Kass, Alex Stegemann, Aschwarde- 
ner Str. 26, 2822 Schwanewede 


Das Schwimmbad kann warten! 
Werde Mitglied bei uns. Es gibt 10 
Disks gratis. C64, AMIGA 2 Disks); 
An OSABA-Computer Club, Siedler- 
allee 41, 4156 Willich 3 


Software — billig, funktionell PD-Soft 
aus USA (neu), C128/64 Info geg. 
Rückumschlag! Katalog-Disk m. De- 
mos DM 10,—. ESOCOM, Postf. 48, 


8820 Gunzenhausen 

Grafik-Kataloge 

Certificate Maker 20,— DM 
Printmaster 10,— DM 
Newsroom I + II 20,— DM 


D. will, Pf. 28 24, 2350 Neumünster 


C64 originalverpackte Programme 

Space Harrier, Hacker 1+2, Super 

rm 2, Trivial Persvit. Billig abzuge- 
n 


Suche VC20 und ZX81 oder ZX80. 
Niko Strunk, Tel.: 07 11/65 35 01 


DISKSTICKER druckt Printshop- 
Zeichen in versch. Größen, kann 
auch Bilder aus Printshop, Newsroom 
...(C64) in Text übernehmen. Gratis 
Info bei Hoffmann R., Mondorfer- 
str. 9, L-5852 Remich 


Habe neueste Topsoftware zu ver- 
kaufen. Wer Interesse hat, ruft ein- 
fach an: Tel.: 06663/5292, ab 19 
Uhr; Diskette 


Verkaufe Peripherie 


für C64+C128 Epson 
RX80FT+ mit Einzelblatteinzug + 
Traktor NLQ-fähig, Görlitz-Interface 
lA-Zustand für 1280,— DM. C.-P, 
Dugy, Tel. 0 60 81/1 62 22 


Verkaufe: Epson MX80F/T, Floppy 
CBM2031, Exbasic, Hard-, Software 
rund um CBM, kostenloses Info bei 
Th, Golwer, Dresdener-Ring 39, 6200 
Wiesbaden 


Verkaufe Monitor COM1081 300 
DM, Drucker NEC 8023 B/C: inkl. 
C64 Interface — Drucker ist sehr ro- 
bust — 550 DM, Epson-RX80FT 750 
DM. Ruf doch mal an ab 18.30—19.30 
Uhr, Blum Jürgen, Tel.: 09 31/46 33 40 


PROLOGIC DOS mit Centronics- 
Schnittstelle, 35x schneller laden, 
etc. für 199,— DM. R. Pieroth, Pe- 
DER AN NEN EEE 


Verkaufe Sonstiges 


Verkaufe RUN-Hefte 8/85—5/87, 
64er 6/86, 8/86--5/87, Happy C. 3/ 
87-5/87... jeweils zum halben Neu- 
preis. Suche billige Amiga-Software! 
Meldet Euch bei Postf. 1931, 8390 
Passau ] 


Kreativ mit kleinen Computern Das 
richtige Handbuch für alle Lehrer, 
die mehr als einen BASIC-Kurs 
machen wollen! 1425 24,— DM. Paul 
Tresselt, Geulenstr. 98, 4040 Neuss |, 
Tel. (0 21 01)54 47 63 

*%* Notendruckprogramm 38RB ** 
für MPS 801 u. ä. zu verkaufen. Gra- 
matzki, 0 30/4 92 64 34. Abends öfter 
versuchen! 


Input 64 1/85—6/86 je DM 10,—, RUN 
1/85—1/87 je DM 5,—, 64er 1/85—1/ 
87 je DM 6,—. Progr. aus 64'er je Aus- 
gabe je DM 10,—. Baumgartner, 
Hammarskjöldstr. 5, 4152 Kempen, 
Tel.0 21 82/5 39 29 


#ik NEWSROOM *** Deutsche An- 
leitung mit allen Bildern 15,— DM. 
Alle Bilder der Erw.-Disketten (1400 
Stck.) zus. 10,— DM. Oliver Tresselt, 
Geulenstr: 98, 4040 Neuss 1, Tel. 
(0 21 01)54 4763 

Neues Programm — und los geht’s! 
NIE MEHR IM HANDBUCH SUCHEN 
Alle Befehle aus The Music System, 
Multiplan, Vizawrite, Superbase, 
Textomat PLUS, SM-Monitor, Hi-Eddi 
*CHAMOISFARBENE TASTATUR- 
MASKE * 


stabiler Folienkarton je DM 20,— (3 
Masken DM 50), V-Scheck schicken, 
Maske(n) kommen portofrei, U. Ueh- 
lein, Seydlitzstr, 14, 8000 München 50 


Für *** PRINTFOX *** Zusätzliche 
Grafikbilder und 25 neue (selbster- 
stellte) Zeichensätze auf Disketten. 
Gratisinfo bei W. Neumayer, Rüppur- 
rer Str. 94, 7500 Karlsruhe 


WER AERORIE CORARDILERYAOTBERLINH 


Für *** NEWSROOM *** Deutsche 
Anleitung 44 S. (A4) mit Bildern (Clip- 
Art S. 1+2) für C64/128, APPLE, IBM 
lA-Qualität. Gratis dazu ca. 200 Spie- 
lepokes für C64. Preis 20,— inkl. 
Porto. 

*#* NEWSROOM-BILDER *** 
Zusammenstellung von Clip-Art-Disk 
S. 1+2 sowie S. 3+4, auf jeweils 12 
A4-Seiten. Preis 5,— bzw. 10,— (für 
alle 24 S.) inkl. Porto, 'per Verr.- 
Scheck oder bar. W. Neumayer, 
Rüppurrer Str. 94, 7500 Karlsruhe 1 


Für FLIGHTSIMULATOR I Deut- 
sche Anleitung 415. (A4) + 4 Flugkar- 
ten (A3) mit Koordinaten aller 80 Flug- 
plätze. Gratis dazu ca. 200 Spiele- 
pokes für C64. Preis 20,— inkl. Porto, 
per Verr.-Scheck oder bar. W. Neu- 
mayer, Rüppurrer Str. 94, 7500 Karls- 
ruhe | 


Suche Hardware 


Suche 64-KByte-Speichererweite- 
rung für Commodore 8032, außer- 
dem Turbo-Pascal und User-Pro- 
gramme für C128D. Günter Fiebig, 
Nürnberg, Voltastr. 67, Tel. 09 11/ 
45 59 82 

SUCHE DRINGEND!! Funktionsfähi- 
ge C64-Platine mit eg FE TE 
tur, Baujahr ist egal. 

1333 (ab 16.00 Uhr), Stephan Reng, 
Schulwewg 4, 8959 Zell 


Suche C#64, Floppy 1541, Printer, 
auch einzeln A. Kühnemann, Sänger- 
str. 1, 8960 Kempten, Tel. 0831/ 
12259 

C16/+4 + Floppy 1551 gesucht auch 
einzeln. Angebote unter Tel. 0 80 81/ 
4824 Anrufbeantworter. Rückruf ga- 
rantiert am selben Tag. 


Suche C64 + 1541 + Drucker + Mo- 

nitor + Mouse + Zubehör + usw. 

Komplett oder einzeln. Zuschriften 

Ogan, Watzhaähner Str. 14A, 6209 Ho- 

Bee 5 oder Tel. 061 24/1825 ab 
0 Uhr 


Suche Software 


Kaufe selbstgeschriebene noch 
nicht veröffentlichte Software aller 
Art (C64/C128). Angebote an Chri- 
stian Maczek, Erlackerstr. 32, 9303 
Wittenbach, Schweiz 


Für Plus/4 Kassette Suche Pro- 
gramm für Diaverwaltung, Angebote 
an: Helmut Schulte, Forststraße 23/ 
Oberrieden, 3437 Bad Sooden-Allen- 
dorf 

Commodore C16 (64 K) Suche Hard- 
copyroutine für Commodore-Farb- 
drucker MCS-801 für Hires-Grafik. 
W. Herzog, Garmischer Str. 48, 8038 
Gröbenzell, Tel. 0 81 42/70 30 

Suche Trainer f. Ghosts in Goblins 
sowie günstige Software aller Art f. 
C64/128 (mögl. Disk) m. Anl., event. 
Tausch. Tel. 061 81/4 57 82 
*Nebenverdienst mit dem AMIGA* 
Hobbyprogrammierer für ein Horo- 


skopprogramm gesucht. Nähere 
Info: Franzwa, Postfach 22 15, D-8228 
Freilassing 


### AMIGA**AMIGA*F*AMIGA*** 


Hilfe! Rift“ Wer kam auf 
Rift 20 und wie? Georg Koch, Am 
Hühnerberg 2, 8631 Weitramsdorf 


Kaufe selbstgeschriebene noch 
nicht veröffentlichte Software. aller 
Art (C64/C128). Angebote an Chri- 
stian Maczek, Erlackerstr. 32, 9303 
Wittenbach, Schweiz 


Suche Disketten 


Suche Software hauptsächlich Spie- 
le, für C64/C128, Zahle für Topspiele 
max. 10,—. Tausch ist auch möglich. 
Listen mit Preisen an: Carsten Hartla- 
ge, Karl-Drilling-Str. 10, 4700 Hamm 


Suche Peripherie 


Suche gebrauchte Funktionsf. Flop- 
py 1541 und Drucker für C16; Ange- 
bot an Bernd Ufermann, Hinter den 
Eichen 15, 2110 Buchholz 


Suche Tausch 


Suche T: für Top-Soft- 
ware (64/128). Habe T. Pursit, I. War- 
riors, Commando 86 etc. Markus 
Jauch, Postfach 29, CH-6473 Silenen. 
*Schweiz* 


Suche Sonstiges 


Suche Auflösungen für Adventure- 


Suche Data-Becker-Bücher für C64 
sowie Software für C128. Angebote 
an: Kurt Krummeich, Brunnenweg 3, 
5370 Kall, Telefon: 0 24 41/66 44 (ab 
19 Uhr) 

Suche f, SCRIPT/PLUS deutsches 
Handbuch od. Übersetzung. 0 86 21/ 
48 68 ab 18 Uhr 


*AMIGA — AUSTRIA** Suche net- 
te Amiga-Kontakte. Schreibt oder ruft 
einfach an. Roland Schrettl, Grass- 
mayıstr. 16, Tel: 05222/31775, 
A-6020 Innsbruck, Btx.: 915 210 280 


CVC-Computerclub C128 C64 C16 + 
VC20 nimmt noch Mitglieder auf. Aus 
ganz Europa. Einsteiger + Profis will- 
kommen. Keine finanziellen Interes- 
sen! Schreibt mal. Info (Rückporto) 
CVC, Postfach 18 64, D-8460 Schwan- 
dorf 

Hallo Mädchen! Suche Kontakt zu 
weiblichen Computerfreaks. Erfah- 
rungs- und Programmtausch. Meldet 
Euch mal. Monika Veitengruber, 


Graf-v.-Drechsel-Str. 31, 8460 
Schwandorf 
Suche für Adventure- 


Spiele aller Art. Angebote bitte an 
Reichardt, Tulpenstr. 8, 8360 Deg- 
gendorf 


Tausche Software 


Hallo C64-Fans Suche Tauschpart- 
ner für C64-Disk, habe viele Games. 
Listen an: Protiwinsky Ernst, St. Jako- 
berstraße 55, A-9400 Wolfsberg, 
Kärnten/ Austria, Tel. 0043-4352/3186 
Tausche neueste C128-T: 

(nur 128 CP/M). Liste bitte an: Ste- 
vens Dirk, Langdorpse Steenweg 
105, B-3220 Aarschot (Belgien) 

*** Suche Tauschpartner *** Habe 
neueste Software aus Holland!!! Ver- 
kaufe: Final Cartr. II (neu!) 90 DM. Su- 
che: RUN 10/1986. Maurice van de 
Venne, Burg. Derkxstr. 4, 6085 EZ 
Horn, Holland 


Mai/87 UM 87 


© AMIGA — ÖSTERREICH ® 
Suche AMIGAFREAKS zwecks Soft- 
ware-Tausch, Anfänger und Profis. 
Meldet Euch bei: Mario Sepp, Roseg- 
gerstr. 4 A-6020 Innsbruck, Tel. 
0 52 22/43 92 05 Mo.—Sa. ab 18.00 


#ik SCHWEIZ *** Tausche C-64- 
Software (Disk). Listen schicken an 
A. Buni, 3 Rue f. Durafour, 1220 Avan- 
chet-Parc, Schweiz 


Suche Ta für C64/128- 
PC, hauptsächl. Anwender, nur Disk 
Listen an Johann Ebner, Heckenro- 
senweg 11, 8900 Augsburg 


Newroom-Fotos in Hires-Format 
wandeln? Für Hi-Eddi, Print-Shop 
usw,! Hiresausschnitte in Print-Shop- 
Bilder? Oder umgekehrt??? Info 
3 DM, Helmut Rieder, Lehrer-Stie- 
glitz-Str. 25, 8064 Garching 


*C-64-CLUB für Euch* Der Club, 
der für Euch da ist. Info auf Disk für 
1,50 DM in Bfm. von: CCNMS c/o 
Dieter Will, Pf. 2824, 2350 Neumün- 
ster * 04321/31711 * Suchen Free- 
Soft im Tausch * Haben 70 Disks 


Zu verk.: 80-Zeichenkarte von Jann 
Datentechnik, gutes Bild mit Orion 
CCM 1280, kaum benutzt. Karte für 
C64. Angebote an G. Krause, Schle- 
sierstr, 3, 8770 Lohr/Main (VB DM 
200? NN) 


präsent sein. 


« 


Tr 


Kind... 


Das ist Wahnsinn! PDS, Zeitung, Soft- 
ware-Vertrieb, Buchverleih, und ... 
OSABA-Computer Club, Siedlerallee 
41, 4156 Willich 3, PS.: Und 10 Disks 
gratis, C64, AMIGA (nur 2 Disks) 


— HOLLAND-MAILBOX — 
H.K.P.A. — 300/1200 Baud. Gratis 
Mitglied. monatlich neue Prg. Down- 
loaden. Sonntags von 19.00-23.00 
Uhr. Mon,/Die. von 19.00-23.00 Uhr, 
Ruf an Tel. 00 31-54 90/2 38 38 


Nebenverdienst mit dem AMIGA * 
Hobbyprogrammierer für ein Horo- 
skopprogramm gesucht. Info von: 
Franzwa, Postfach 22 15, D-8228 Frei- 
lassing 

AMIGA *** AMIGA *** 


Für jeden Commodore-User die 
Adresse: Commodore mini-club, 
Postfach 13 14, 4150 Krefeld 29. Info 
geg. Rückporto! Wir wollen nicht die 
Größten sein — nur die Besten! Rein 
privat!!! 


IEEE-488-Bus für C-64 zu verk., wie 
neu, kaum gebraucht. Zum Anschluß 
IEEE-kompatibler CBM-Peripherie 
wie Doppelfloppy... NP 239,—, jetzt 
DM 145,—, Kabel: IEEE 488 — TRW 
222 12 24 004 für DM 70,— inkl. NN 
G. Krause, Schlesierstr. 3, 877 Lohr/ 
Main 


ENGLISCHE ANLEITUNGEN? 
Kein Problem! Übersetze schnell und 
präzise ins Deutsche gegen Unko 
stenbeitrag! Info (Rückp.!): Chris Po- 
plutz, Eichholzstr. 41A, D-5760 Arms- 
berg/Westfalen 


Verkaufe Farbdrucker MCS801 NP 
498 DM, VP 460 DM, 4 Wochen neu 
+ Prog.-Disk. Suche Terminalprog. 
für Dataphon S2]D u. wer schenkt 
mir Printfox, Colourprinter usw.? 

T. 050 55/4 83 


[9% 


en 


Plus/4-/C16-Anwender Einsteiger 
Endlich ein Club speziell für uns! Info 
beim hrc e.V., Laschinsky, Bauer- 
land 15, 4800 Bielefeld 1 


PC007 AMIGA Corp. ist ab 1.4.87 
Mon. frei beim Bund, na und? — 
James Bond ist Sam./Son. zuhause 
Am Amiga oder im Ferrari. T. 0931/ 
463340 

* DEHOCA — Der Computerver- 
band ** *%* bietet Mitgliedern: *** 
Umfassende Info-Datenbanken und 
Public-Domain-Archive aller Rechn. 
Programm- und Listing-Service, Leih- 
bibliothek für Comp.-Literatur, Ver- 
triebsunterstützung eig. Progr., Lite- 
ratur- und Quellenbibliothek, Hotline 
für alle Archivfragen. ** Der DEHO- 
CA = Nach ADAC-Vorbild ** INFO: 
Postf. 14 30, 3062 Bückeburg 


Wk DEHOCA — Der 

band bietet Mitgliedern: große Vor- 
bandszeitschrift „PRINT“ mit: Insider- 
berichten der Szene, Mitgliedererfin- 
dungen u. Tests, Exklusivtests mit 
Gütevergabe, regionalen Aktionshin- 
weisen, Rechtskunde in der Praxis, 
rechnerbezogenen Specials, News 
aus dem Profibereich, kostenlosen 
Kleinanzeigen, PRINT-Public-Shop 
*Der DEHOCA = Nach ADAC- 
Vorbild ** INFO: Postf. 1430, 3062 
Bückeburg 

*** DEHOCA — Der 

band bietet Mitgli edern: bundeswei- 


ten Mailbox- Verbund mit Zentralbox 
05722/3848 auf PC-AT286, Regio- 
nalboxen in den Bundesländern 


‚Aktions-Service, Info- 
Seiten „junior* und „profi*, Pilotpro- 
jekt "Intermail* zur HAFA, DFÜ-Ser- 
vice zu ungen. * Der DE- 
HOCA = Nach ADAC-Vorbild * 
INFO: Postf. 14 30, 3062 Bückeburg 


ran 


GEWERBLICHE 
GELEGENHEITEN 


Zählt für Sie jeder Millimeter? 
Als Geschäftsmann für wenig Geld in RUN 


Und so wird es gemacht! Schicken Sie uns Ihren 
Text mit der genauen Firmenanschrift. Pro ange- 


fangener Zeile (1 Zeile = 


Biete an Software 


Verkaufe 30 Public-Domain-Disks 
für Amiga, komplette 250 DM Vorkas- 
se. C-Prog., Basic-Prog., Dia-Shows, 
Kermit, Hacker, 3D-Animation. Soft- 
ware Studio Plieth, 5 Köln 80, Berg.- 
Gladb. Str. 696, 02 21/6 80 28 68 


88 QUM Mai/87 


33 Anschläge) berechnen 


#* C 16/116 — Plus4 — Software # 
— 4300 Vokabeln Verwaltungs-Prg. 
— CAD-Prg. —Text mit Ädressen- 
austausch-Prg. —Musik-Prg. + Spiele 
ZAPO-Software, 1. B. Kohler, 
Potsdamer Str. 27, 1000 Berlin 45 

54'' ID DISKETTEN ä DM 0,83 60 
Stck. zu DM 50,— ab Lager. Allg. Aus- 


tro Agentur & HGes., Ringstr. 10, 8057 
Eching/G., Tel.-Nr.: 081 33/81 16 


wir DM 7,— zzgl. 


###* DEHOCA — Der Computerver- 
band bietet Mitgliedern: regionale 
und lokale Ortsgruppen mit: voller 
Verbandsförderung, Erfahrungsaus- 
tausch vor Ort, Verwirklichung eige- 
ner Inter, Firmenbesichtigungen, 
Programmierschulungen, öffentliche 
Aktionen, gemeinsame Messebesu- 
che. AGs: DFÜ, Amiga, ST, Literatur, 
PC, 68000er, Hardware-AGs. ** Der 
DEHOCA = Nach ADAC-Vorbild ** 
INFO: Postf, 14 30, 3062 Bückeburg 


#kk DEHOCA — Der Computerver- 
band bietet Mitgliedsvereinen: vol- 
len Erhalt der Eigenständigkeit, För- 
derung unter dem Vereinsnamen, 
verbilligten Mitgliederbeitrag, 
Selbstdarstellung in der „PRINT“, 
Aufbauhilfe zur eigenen Mailbox, 
Standfläche auf regionalen Messen, 
Möglichkeit einer Gebietsleitung, 
PRINT-PublicShop, Presse- und 
Werbekampagnen vor Ort, Paten- 
schaft zu ausländischen Clubs. 
*Der DEHOCA = Nach ADAC- 
Vorbild ** INFO: Postf, 1430, 3062 
Bückeburg 


*** DEHOCA — Der 

band bietet Mitgliedern: „PRINT" 
Zusendung stets kostenlos, Clubkar- 
te m. materiellen Vergünst., telef 
Clubeinkauf über Sammelruf, um- 
fangreiche Verbandsversicherung, 
Verbraucherschutz/Warnungs- 
dienst, Partnemetz f. Reparatur u. 
Wartung, attraktive Mitgliederwett- 
bewerbe, Dauer-Hotline zur Ver- 
bandsführung, Superaktion: „Ich 
habe eine Frage", PRINT-Public- 
Shop, Teil-/Vollkaskovers, f. Compu- 
ter, verbandseigene Schulungen u. 
Messen. **Der DEHOCA = Nach 
ADAC-Vorbild ** INFO: Postf. 14 30, 
3062 Bückeburg 


ges. MwSt. Sie können Voraus- 


kasse per Scheck leisten; wir schicken Ihnen aber 
auch jederzeit eine Rechnung. Weitere Informatio- 
nen gibt Ihnen gerne Marianne Gad, Tel. 089/ 


3 60 86-201. Anze 
ren Ausgabe ist 


enschluß der nächsterreichba- 
ttwoch, der 13. Mai 1987. 


Nützen Sie die gewerbliche RUN-Gelegenheit! 


C 64 SUPER- 
EINTIPPHILFE 


für das Abtippen von Programmen 
aus Zeitschriften (BASIC). 
Spart ca. 50 % Zeit und Arbeit 
PRG + Anleitung nur 10,— DM bei 
R. Pieroth, Postfach 14 36 
6052 Mühlheim/Main 


Lohn + F. CBM 
64 und andere z. vk. Info + Demodisk 
von F. Spiess, Turbinenstr. 4c, 6800 
Mannheim 31, Tel.: 06 21/72 15 15 


uV C64/C128 u 
Mitgliedslisten, Bankeinzug, Rech- 
nung, Aufkleber, Rundschr., Kasse 
98 DM, Info gegen Freiumschlag: 
IS-Soft, Bergf. 21, 8261 Tittmoning 


DRUCKERZUBEHÖR 


Farbfrische Industriefarbbandkas- 
setten für alle freien Typen 
zum Beispiel: 
Epson MX, FX, RX 80 DM 10,00 
Commodore MPS 801 DM 11,50 
Commodore MPS 802, VC 1526 

DM 13,00 
Nachfüllen von Farbbandkassetten 
bis Om Bandlänge M 10,00 
jeder weitere Meter DM —,50 
DRUCKERTISCHST. ER 


bis A4 hoch/quer, unter dem Druk- 
ker Freiraum für 2000 Blatt Papier, 
Auffangkorb, Papierführung, Metall- 
gestell DM 160,00 
Weiterhin bieten wir Druckerpapie- 
re in verschiedensten Abmessungen, 
auch Recyclingpapier, Thermopa- 
ier, Tintenstrahldruckerpa; pe 
nser Angebot erallen 2 wenn 
Sie uns eine Postkarte mit Be Wün- 
schen bei Druckerpapieren (Art, Ab- 
messungen) bzw. mit genauen Änga- 
ben über Hersteller und Typ Ihres 
Druckers schicken. Lieferung gegen 
Nachnahme zzgl. Porto. 
Angelika Wendler, Invalidenstraße 
56, 1000 Berlin 21 


C-64 

Bard’sTale 62,00 
Leader Board Golf 
Destroyer 40,90 
World Games 29,90 39,90 


Leader Board Golf 69,90 
c-16 


25,0 
26,40 


Winter Olympiade 
Text C16(deutsch) 
Farbbänder 


10,50 
MPS 802 12,50 
Epson MX80, FX80, LX80 12,50 
Modem 


Dataphon S21-2ab 229,00 
Katalog Run 4/87 anfordern. 
H&S W. Wohlfahrtstätter 


Postfach 30 10 33, 4 Düsseldorf 


u DISKETTEN 

3 5%'', 48tpi, DM 0,97, 2D 

M 3%", 135tpi, DM 2,70, 1DD 
m 3%" 135tpi, DM2.9, 2DD 
Ei 3" Markendisk. DM 7,20, 2CF 
MB auchandere, bes. Garantie 
B Allgem. Austro-Agent., Ringstr. 10 ® 
M D-8057Eching, Tel.:0 81 33/61 16 M 
WELT AM DRAHT MIT —> 
HACKER 64 PLUS. Dieses Terminal- 
programm deckt 99% Ihrer Wün- 
sche ab. Disk nur DM 29,— (zuzügl. 
NN und VK). Fa. Hoos, Distelweg 44, 
216 Stade, Tel.: 041 41/8 68 74 


RAMM VEW12—132 
mit Gewinnberechn. (Disk) DM 45,—. 


A 

6 AUS 49 
Diskettendatei enthält alle Zahlen 
(55—heute) in gezogener (!) und/ 
oder sortierter Reihenfolge mit Ak- 
tualisierungs- und Analyseprogram- 
men (Zahlen, Reihen etc.) und Anlei- 
tung (Disk) ab DM 45,—. Entwickle in- 
dividuelle Lottoauswertungspro- 
gramme unbegrenzten Umfangs; 
Preis VS. V-Scheck an Olaf Jordan, 
Birkenweg 3, 8678 Döbra 
TEL. 0 92 89/59 62 


HIRES-GRAFIKEN schwarz/weiß 
— im HI-EDDI-Format — 
Musterdisk mit 20 Bildschirmen 


für 5,— DM einschl. Versandkosten 
Scheck oder Marken an: 
© DALLDORF-SOFT © H-H. Vollmer 
Zangengasse 9, 1000 Berlin 26 


EEE 
5 SCHULMEISTER 64 (C64/128) 
m Die komfortable Noten- u. Klas-@ 
M senverwaltung. 5 Fächer pro 
M Klasse (mündl./Kurztests/Arbei- 
Men), Gewichtung frei wählbar. u 
m Version für Viertel- oder Zehntel-g 
® noten lieferbar (BRD/SCHWEIZ). - 
iM Info geg. Freiumschlag, 
- M. Heber-Knobloch, Ger- F 
m areistr. 19, 7032 Sindelfingen 3 


BREEBEESRERBEREBRRNNEN 
* Lohn- und Einkommensteuer * 
Super Jahresausgleich + Steuerkl.- 
wahl+ Rentenertrag + Analyse! 

*# 064/128+IBM ** Kass. 60,— DM, 
Disk 70,— DM. Info gg. RP. Jährl 
Aktu. 10,— DM! Horst Ilchen, Nieder- 


felderstr. 44, 8072 Manching, 0 84 59/ 


i009 


l ‚Tel: Irrite 
RIRR er auf Disk für C6 *+** 
Diaverwaltung 49,99 DM. Ordnen, 
finden, sortieren, verknüpfen v. Be- 
anffen KGB kontra 11,99 DM 
Grafikadv., 40 Räume u. Orte. Agent 
sind Sie! Grammatica 2999 DM 
Weltraumspiel und Lemprogramm 
ich! Informationsm. gratis! Be- 
en SVS Scholz, 5628 Heiligen- 
haus, Marienburger Str. 20. Versand- 
kosten 1.90 DM. Versand gegen 
Rechnung! 


DER SOFTWARE- UND ZUBEHÖR- 
VERSAND 
OTTTITTTTTITLLLLLLLT 


PC-FIBU ab 199,— 
C64/C128 FIBU ab 9,— 
C64-Kunden-/Lief.-Buchh. 69,— 


C64/C128 — STAR TEXT/-DATEI 
Katalog DM 3,—, Fa. Lücker/RU 
R.-Wagner-Str. 71, 6239 Kriftel 
Bücher und Software für Apple, Ata- 
ri, C 64, C 128, Schneider; Preisl. (mit 
über 450 Angeboten) gegen DM 1,10 
in Briefmarken von her- und Soft- 
wareversand, Altenrond 20, 7821 
Bernau 


ACHTUNG! C-64/128 ACHTUNG! 
Erstkl. Programme we ab L—, 
2,—, 5,— DM! Kompl ammpa- 
kete auf Disk ab 9 DM) lle Berei- 
che: Mathe, Anw., Arcade, Lernen, 
Advent. etc.(!) Heute noch GRATIS. 
Katalog mit vielen Listings und Tips 
anforden! Oder für 10,— DM 
(Schein/Scheck) Kennenlernange- 
bot anfordern. Sie erhalten eine dop- 
pels., randvolle Diskette mit Pro- 

(Echt stark!) Schreibt an 
MULTISOFT Abt. U/R. Scheitza, 
Holsterhauserstr. 33] in 4690 Herne |. 
Heute noch! 


iBASE 4 — Profidatenbank der 4. Ge- 
neration zum Taschengeldpreis. Be- 
liebige Anzahl Schlüsselfelder, komf. 
Auswertungsmögl., leichte Bedien- 
barkeit u. v. m. Zwei Disks nur DM 
29,— (zuzügl. NN und VK). Fa. Hoos, 
er 44, 216Stade, Tel.: 041 41/ 


WUNDIV RO ME CINE RERSVCOHE LT 


Print Shop Usertttttrnnnt ggg 
100 neue Icons im 2-Block-Format 
20 DM Vorkasse (bar/Scheck). 
Software Studio Plieth, 5 Köln 80 
Berg. Gladb. Str. 696, 

02. 21/6 80 28 68 


gmasszzesnummnnunmm 
RTSC64C16 C6ACI6RTS 
EREEROABBENERRDENE 


Yie ArKungFu... 
AViewtoaKill.... 


Zahlen Sie Ihre Rechnung in 3, 5 oder 
7 Monatsbeträgen. Bei einem Betrag 
von 250 DM zahlen Sie monatlich z. B. 
DIESEN SE | © 
Info-Katalog gegen 1,— DM Rück- 
porto bei R.T.S., Abt. C64, Postfach 
31, 4178 Kevelaer | 
BASERNEANMESANNRBERGBB 
RTSC64C16 C64C16RTS 
ZAESZBESERERZERRHAGE 


** Dias ordnen mit Computer ** 
C64, C128, CPC, JOYCE, IBM-PC 
und Kompatible. Info gegen Rück- 
porto Bi Dipl.-Ing. alter Grot- 
kasten, Birnenweg 6, 7060 Schorn- 
dorf, Tel.: 0 71 81/4 28 46 

lag Vereinsverwaltung pie 
Bankeinzug, Rechnung, Aufkleb., 
Mitg.-Listen, Rundschr., Kasse für 
IBM-PC/C128/C84: IS-Soft, Bergf. 21, 
8261 Tittmoning 


* 100fach bewährte Programme * 
C64 BAUFINANZIERUNG C128 
Umfaßt alle Möglichkeiten der Hausfinan- 
zıerg.,3S. Ausdr. DM 129 


Jetzt auch compiliert für DM 149 
STEUERN 86alle Einkünfte DM74 
VEREINSDATEI Ausdr. Listen, 

Rechng. Etikette, Lastschriften DM 
SONDERAUSGABEN 

Steuernsparen DM25 
HAUSVERWALTUNG, Abrechnung DM 
FINANZBUCHHALTUNG DM 
Info: Klaus Hein, Salzstr. 28a 

8950 Kaufbeuren, T. 083 41/8 13 57 

*Neu! Einkommen-/Lohnsteuer 1987 * 
C64/128. Alle Einkunftsarten, Ausführliche 


Anleitung. Auch f, 1986 lieferbar. Disk 69 DM 
Beide Prar. 89 DM. Info 1,50 DM. Dipl.-Finw 
G. Bohnenkamp ner Dorfstr. 3a, 4950 
Minden, Tel. (05 


E mmAuigepaßt und zugefaßt: mm 
m SCREEN-LIGHT (Disk) 49,— DM 
. Profitool für Laien. Diverse An- 
M wendungen: von Äctiongrafik — 
a ee Hardcopy 5 
4 SPRITE-LIGHT (Disk)..89,— DM 
m von een sehr gut be- g 
® urteiltes Grafikanimationsprg. 8 
M Info = Rückporto, Versandk. = - 
= 3—. W. Zunker & Uwe Hassepaß 
- G.b.R., Postf. 62 07 26, 1 Berlin 62 = 
VC 64/128 


Software für Briefmarkensammler, 
u. a. Katalog anfordern: Hubertus 
Bachmann, 6985 Stadtprozelten 2/R. 


„WITZE AM TELEFON“ *040/326669 


KOMMEN SIE ALS AUSSTELLER!!! 
vom 4.—6.9, nach Saarbrücken zu 
den 4. ELEKTRONIK & COMPUTER- 
TAGEN SAAR, der Verkaufs- & Infor- 
mationsmesse, INFO: Computertage, 
Postfach 10 12 60, 6620 Völklingen 


Biete an Hardware 


Akustikkoppler-Bausatz für 
C654/128 inkl. Software DM 59, — 

C64 mit 12 Volt betreiben: keine Netz- 
störungen! Umbausatz DM 50,— 

12 Volt für 1541 DM 35,— 
RTTY-Konverter DM 50,—. Dipl.-Ing. 
I. Drust, Darmstädter Str. 77, 

6103 Griesheim, 0 61 55/22 63 


AMIGA-UTILITIES 

Genlocker für Amiga 1595,— 
C.LTDaMega—1 MBfastRAM 1095,— 
SunRize PerfectSoundDigit. 249, — 
10 Maxell 3,5" 2DD 55.— 


AMIGA-Computercamp in der 
Schweiz 

Video LOFT GmbH, 

Tel, 05 61/87 7928 

Fiedlerstr. 22—32, 3500 Kassel 
Computercamp Info f. d. Schweiz: 
Car Reisebüro, Sursee, 

Tel. 048/21 6555 

Münchner Computer Blitzversand 
Commodore © 128/D DM 1278,— 
Commodore C16/64K DM 230,— 
Floppy Disk VC 1551 DM 393,— 
StarNL10 DM 748,— 


Compiler C16/64/128ab DM 148,— 
Tel.: 0 89/68 82 26 


M REPARATUR TEL.: 0531/51015 
Alle Commodore zu Festpreisen 
CSS — Peinerstr. 170 — 33 Braunschweig 


Mai/87 un 89 


WAS GIBT’S WO? 


TERRA IMPEX 


Siebert Wortmamn » Hilkksut 


Diskette no-name MD 1 D54'" DM 6,% 
Diskette no-name MD 2 D 544’ * DM 7,9% 
Diskette MEDIA MTL 200 5%" ' DM 32,% 
Diskette no-name MF 2 DO 344" ' DM 34.90 
Diskette Maxell CF 203° DM 74, 
Preise geiten für 10-er Pack: Mindestabnahme 50 Stück 

Thomson Monitor CM 36512 
— Coler-Monitor 14'*, AGB, mit Ton 

40/80 Zeichen DM 798,00 
Daewoo DM 120 


— 12°° ,18MHz, 80 Zeichen Sonderpreis DM 179,00 


STAR NL 10 mit Intertace DM 678,00 
General Electric 


— 3 Schnittstellen durch Interfacebax, Centronicausgang Atari XL, 
Commodore VC, 50 Zeichen/Sekunde, NLQ und graphiktähig, 
Thermodrucker,, arbeitet auch mit Normalpapier DM 378.00 

Farbbandcassette für General Electric Drucker 19, 

Panasonic KX-P 1092 


Competition Pro 5000, transparent 
Quicksnot Il turbo, mit Microschalter 


Diskettenboxen 

DD 100L Ablage 100 Disketten 544" mit Schloß 

BO Dan 3 000 * mit Schloß 
Ibehör 


Kabel für Monitor 40/80 Zeichen umschaltbar 
Staubschutzhaupte für C 64 

und Tastaturabgeckung für C 128 und 1280 
Ram-Erweiterung C 16/C 116 auf 64 Kofne löten 
Computer- und auf Anfrage 
Lieferung ab Lager unfrei 


TERRA... sitcı 
Auf der Heite 7 « Pu n 
Telefon 804/231 


8 


EEE 2 22 82 22 
2 8 32 80 2 
83 8 88 ss 3 


Alles für 
C16, C116 und plus/4 


Flugsimulator ACE (64kB-Version) Cass 3%, 


Für C16/116: ACE, 64kB-Speichererwei- 


terung, mit Einbau und Ruckporto nur 99,- 


NEU: Spitzen-Software für plus/4 und C 64 
Cass/Disk 
34, -/398,- 


(auch für C16/116 mit 64KkB) 
ACE (64kB-Version mit Sprache) 


MERCENARY + SECOND CITY (Comp.) 49,-/59,- 


JET SET WILLY Il (neue Version) 29,-/39, 


SABOTEUR (NinjarGrafik-Advent.) 298,-/39,- 
INFOCOM-Adventures (engl. Text) sind SUPER: 


ZORK |, ZOMK IN, ZORK KIT, STARCROSS, SUSPENDED 
ASSEMBLER 


LIGHT PEN mit Grafik-Software 


Solange der Vorrat reicht: 
plus/4 mit Floppy 1551 


59, -/69, 
Drucker Incl. Interface u. Kabel ab 399, 


je Disk 39, - 

49,-/59,- 
CALC/PLUS (Tabellenkalkulation) Modul 49, 
SCRIPT/PLUS (Textverarbeitung) Modul 49, 
SUPERBASE (prof.Datenbankprogr.) Disk 99, 
SUPERFILE (priv.Dateiverwaltung) Cass 29, 


nur noch 444, - 


.»..und vieles mehr. Gratis-Info anfordern. 


ifi Dipl.-Ing. H. Stechaann 
D-2152 Horneburg, Postfach 210 


© 41 63/21 76. oder ® 89/3 50 84 59 
Versandkösten DM 5,- (bei Nachnahme zuzügl. Gebühr) 


Lichtgriffel z- om 49,— 


komplett mit Programmen 
+ dt. Anleitung 


Lieferbar für folgende 
Computertypen: 
Commodore: C 64/C 128/VC 20 
Atari: 600XL/800XL/130XE 
Schneider: CPC 464/664/6128 
Versand gegen Scheck/Nachahme. 
Informationsmaterial gratis! 
Bitte Computertyp angeben! 


Fa. Klaus Schißlbauer, 
Postfach 1171G 
8458 Sulzbach-Rosenberg, 
Telefon 0 96 61/65 92 bis 21 Uhr 


3.0/13.0 
“0 
“u 
19,-/9,—- 


.-18,- 
C16 Über 220 versch. Prg. für den C16/Plus4 ab 9,90 
Megabatts 9,0 Spacell 4,- 
Hollywood Poker 9,90/19.90 TheWayo.thefiger  29,— 
Masterchess 9.90 Karate King (Plus) 29,— 


Speichen mi CS. TureTap + AZIMUTHTAPE DM 28.0 
VIZASTARS4 
HAUPTHÄNDLER VIZAWRITEAMIGA 
An der Tiefenriede 27 sofort CSJ NEWS anfordern 


CSJIGAMES 1 (3 Spiele = 1 Preis) Cass 32,—/Disk 49,— 

VIZAWRITE64 8- 
V 

NM IZA VIZA CLASSIC 128 

SOFTWARE VIZASTAR 128 

EASYL Graphiktabiett (1024 » 1024 Pkt.) AMIGA . 

CSJ COMPUTERSOFT JONIGK Riesenauswahl an Software 

3000 Hannover 1 bitte Computertyp angeben 

Tel.Service 05 11/88 63 83 Händleranfragen erwünscht. 


Datum/Unterschrift 


AB-COMPUTER AB-COMPUTER 

A. Büdenbender, Wildenburgstr. 21, 5000 Köln 41 

Hard-/Software für jeden Bereich ATARI/ST/COMMODORE/AMIGA 
Telefon: 02 21/4 30 14 42 


Atari St Amiga Atari $t Amiga Atari St Amiga 

‚Atari St 1040 mit Monitor 1 MByte deutsche Aust. 2250,— DM 
Atari Doppelfioppy 2x 726 KBanschlußfertig 3,5 Zoll 718,— DM 
Atari Einzelfloppy 1x 726 KB Netzteil usw. wieoben 398,— DM 
Atari Computer/Zubehör zu Sonderpreisen sofort lieferbar. 

Atari Festplatte 20 MB SH204 nur 1800,— DM 
Star NL 10 mit deutschem Handbuch u. Intert. nur 749,— DM 
NEC P6 mit Treiber für Atari St/Amiga deutsche Version 1350,— DM 
Citizen 120D Drucker 80 Zeichen IBM/Atari St 540,— DM 
Amiga Computer mit 512 KB voll Pal Version deutsch 2700,— DM 
Amiga Speichererweiterung 256 KB voll kompatibel 148,— DM 
Amiga 2. Laufwerk mit Change/NEC volle Anpassung 
seit Monaten bewährt 3,5 Zoll, anschlußfertig 

Siehe Testbericht in Commodore Welt 11/86 
5Y-Zoll-Lautwerk Amiga für IBM-Emulator anschlußf. 598,— DM 
Freesoftware Atari/Amiga Diskette 12,— DM, Disketten 3,5 1DD 
nur 3,50 DM, 2DD 4,50 DM. Wir liefern jede Hardware zum 
Superpreis sowie Software Amiga/Atari/IBM für viele kleine und 
mittlere Betriebe mit Beratung und Service. 

Atari St/Amiga/IBM sind eingetragene Warenzeichen, 


Computerservice 
Tino Hofstede 

An der Windmühle 8 
5010 Bergheim 5 


Nuniktitelarchiv 
Rechengenie I & II 


Spielepaket 1 5 7 
Supergenie 


Programmkatalog pegen 2 mal 80 Pf in Briefmarken 


Zu der in RUN Heft ..., S. ..., erschienenen Anzeige 


gebe ich folgende Bestellung auf: 


Bitte ich um Information über das Produkt: 


Bitte schicken Sie mir [| Preisliste U Katalog/Prospekt 


Bitte diesen Coupon direkt an die Firma zuschicken. 


Computerferien 


im schwerzwai) * TIER 


Hardware-Bau - 
Maschinensprache - 


Prospekt anfordern! 


Computer World 


7800 Freiburg 
Hurstweg 62b - Telefon 0761/44775 


Martin W. Cilsik EDV-Beratung 
Marienstraße 19, 4790 PADERBORN, Tel.:.0 325126585 


Disketten 3'.’': 


No Name MF 1DD.... 
No Name MF 2DD...... 
Fuji Disketten MF 2DD 


Disketten Bu”: 


No Name MD 1D 
No Name MD 2D... 


Markendiskatten a auf Fans 


Panasonic 1081........0.s:ss2s.50ss0s040000007mt0nne6 
BTX-Term + 

Akustikkoppler .. BEENDETE ERTRENT 
BTX-Paket für C-64/128: 

BTX-Term + Akustikkoppler Datafon S21/23d 
(auch einzeln erhältlich) 

Philips F-Bas Monitor orange 

Weitere TOP-, 2 auf ET z.B. 

Disk-Box DX-85 A... 

Disk-Box SS58... 


6 Grafik—-Befehle 
6 Zeichensätze 
1O definierbare Zeichen 
ee ar er 
bei z Revo? 
kompa zu < 
druckt Print— Shop, 
Hi Eddi+, Printfox, Geos 
viele andere... 


Graflkirmk atına umakändliche Betalkacdngeaise! 


Diese Anzrige wurde erstellt mit Printkan, M-Punktionen, MPSSOS # GNATIE-MUM i1 


Versand per Nachnahme / Info gegen SO Fig gäuiae 
Preis DM 78.- incl. re 
Heinz Haarmann, Kosterstr . 0 Bochum ı 
Tel.: an m 


Gesamtkataloo DH 2.— in Marken. Händierantrauen 
zruünsene 


WERNER RE EN FA LEITEN EEE LI 


Personality 
Gomputertechnik 


Karlstr. 63, 7710 Donaueschingen 
Personality: Bei uns erleben Sie 
unter Garantie keinen Reinfall. 

Fordern Sie unser 
Gesamtprogramm an! 


VC 64 mit Geos nur 4,48 


nur 11,98 
nur 4,48 
VG 1571 


Mailbox 0771-7043, 24 h 
Tel.: 0771/7134 


C64- PC 128 - VC 20 


Gewinn- und Verlustrechnung. 

Bilanz, BWA 

LOHN komplette Lohnabrechnung, alle 
Lohnarten, Abrechnungslisten für 

Finanzamt, Krankenkasse, etc 98 

Überweisungsträger "a 


z AKTUR integrierte Lager- und Adreßver- 
waltung, Rechnungen, Angebote, 


Lieferscheine, Umsatzstatistik und 98 
offenePostenliste,biszu3Mahnstufen a 


KOMPLETT nur 198,— 


INFOGRATIS 
HD SOFTWARE & BERATUNGS GMBH 


MITTELSTR! 29, 6308 BUTZBACH 5 
TEL. (0 60 33) 6 06 70 


Commodore AMIGA 1000 mit Commodare-Farbmonitor 1081 
Ext. 314" ' -Diskettenlaufwerk (Commodore) 629,.—; dto. (NEC) 
Textcraft & Graficcraft & MS-DOS-Emulator & M&T-Handbuch 
Commodore AMIGA 2000 mit Farbmonitor 1081 
Commodore PC-10 Il 2329, ; Commodore PC-20 I 
Commodore SX-64 1479,—; 0 64-Il + Floppy VE 1541 
Commodore © 128 D 1149,—; Floppy-Disik VC 1571 
Farbmonitor Commodore 1802 499, — : Commodore 1901 
Grünmonitor Thomson 3102 VG (35 MHz, mit Ton) für C 64/128 
Bernstein-Monitor Samsung MD-1255 H für Commodore 64 
Schwarzweiß-Fernseher Samsung (aut Monitor umschaltbar) für C 64 279. -_ 
Akustikkoppler Dataphon $ 21 4/2 + Kabei + Terminalprogramm C 64 289,— 
Akustikkoppler Dataphon 5 21/23 (für BTX geeignet) 339,— 
Armbanduhr Seiko Wrist Terminal AC 1000 (kann vom C 64 mit dem 
mitgelieferten Kabel + Terminalprogramm programmiert werden) 
Commodore-Drucker MCS 801 (Farbdrucker, anschlußtertig) 
Commodore-Druckar MPS 1000649, —: Floppy-Disk VC 1551 
ee iußfertig an C 64/128 mit Görlitz-Interlace 8426 
LX 86.869.—: FX 800 1169, —:; FX 1000 1439.—: EX 800 
EX 1000 1999,—; LO 800 1619,—: LO 1000 2069.—: LO 2500 
Epson-Drucker anschlußfertig an AMIGA. Schneider-PC oder CPC 
LX 86 749,—: FX 800 1049,—; FX 1000 1319,—: EX 800 
EX 1000 1879,10 800 1499,—:LQ 1000 1949,— 10 2500 
Traktoraufsatz LX 86/90 75.— ; Colorkit EX 800/1000 
Stardrucker NL-10anschlußfertiganC 64/128 mit dt. Handbuch 
NG-10 anschlußfertig an C 64/128 mit dt. Handbuch 
Schneider CPC 6128 mit Grünmonitor 889, — ; mit Farbmonitor 
Schneider PC1512 mit Schwarzweiß-Monitor 
+ 2Laufwerken 
PC1512 mit Farbmonitor + I Laufwerk 
+ 2 Laufwerken 
Iyı' ' Disketten DSDD SKC 10 St. 60,—; 30St. 169, —; 10051 


{DM 8,—/20,—). Nachnahme (DM 11,20/23.20); Ausland (DM 18,—/0,—) 
Lieferung nur gegen NN oder Vorauskasse; Ausland nur Vorauskasse. Preis- 
liste (Computertyp angeben) gegen Zusendung eines Freiumschlags 


CSV RIEGERT 


Schioßhofstr. 5, 7324 Rechberghausen, Tel. (07161) 52889 


„ PRINT\®&STECHNIK 
| VIDEO DIGITIZER 


28 Modul mit Supersoft 
Neuer Preis 1987 


Eine Super-Weiterentwicklung 
des 1000fach eingesetzten 
PRINTTECHNIK VIDEO-DIGITI- 
ZERS. Mehr Komfort mit mehr 
Software. Jedes Video-Signal 
(auch Kamera + Standbild) läßt 
sich innerhalb von 4 sec. in den Speicher eines Com- 
modore C 64/128 einlesen. Ein Grafikausdruck ist 
auf praktisch allen Druckern (MPS 801/802/803, 
1525, 1526, RX + FX sowie alle Drucker mit Epson 
Grafik, HRS5C, GP80, GPIOOVC sowie in Farbdruckern 
Canon A1210, GP700 und Okidata, etc.) möglich. 


AMIGA DIGITIZER 698, — 

Der über 1000x verkaufte Digi-View s/w 

+ color Digitizer mit neuer Hi-Res Color 
Soft 1987. Neu aus USA. 


Digitizer für IBM, Apple, Atari, Macintosh 


8000 MUNCHEN 40 - NIKOLAISTR. 2 - TEL. 089 / 368197 
KATALOG DM 3,- Tügl.Versand-Telex 523 203d 


IZZAUS 


LASSOCHATES 


direkt aus den U.S.A. Bietet an: 


MACRO-ASSEMBLER-PAKET 
für alle C-128- und C-64-Benutzer! 
Das MACRO-ASSEMBLER-PAKET („MAP") ist ein 


j Anweisungen (commands) und 25 
Vereinbarungen (directives). Die Geschwindigkeit 
der Umwandkung (assembly) beträgt 150 Zeilen/ 
Sekunde. Bedingte Umwandlung (IF-ELSE), lokale 
Labeis, Macros Typ „ful-tsature*, 64 Kbytes für 
Ihr Anwendungsprogramm 
MAP unterstützt einen oder mehrere DISK-Dri- 
ves, Umwandlung erfolgt entweder aus dem Spei- 
cher oder von der Piatte (DISK) mit der INCLUDE- 
Option. Der Objekt-Code kann mit der TARGET- 
FILE-Option in den Speicher oder auf die Platte 
(DISK) gelegt werden 


Alle diese Möglichkeiten für nur DM 99,95 
Endpreis per Scheck oder Nachnahme 


Bestellungen oder Information: MAK — H. Jukic, 
Gartenstraße 68, 7500 Karlsruhe 1 


1060 WIEN » STUMPERGASSE 3 


6TWE L8/TE0 BL-ZASIOHNHVE-MEITEALUIG ZISZ- N OU 104) W- zus 


ÖSTERREICH 


% DIE BESONDERE SOFTWARE * 
Für Commodore 128: 


— BZ-FINANZ: sehr komfortables Buchhal- 
tungsprogr. (Einnahmenüberschuß-Rech- 
nung) mit außergewöhnlichen Merkmalen 
und Möglichkeiten (statist. Auswertung, graf 
Darstellung, etc.) für Kleingewerbetreibende 
und Freiberufler (Gewinnermittlung nach 
$ 4.3 EStG); auch zur Führung eines Haus- 
haltsbuchs geeignet 
BZ-DATEI 1: Verwaltung elektronischer „Kar- 
teikästen“ mit jeweils 650 „Karten“ 


BZ-HOMÖOPATHIE — umfangr. Programm- 
paket (Repertorisierung von Einzelmitteln; 
Erstellung homöop. Fragebogen; Komplex- 
mitteldatei) für Ärzte, Heilpraktiker und alle 
an Naturheilverfahren Interessierte (auch 
Vers. f. 0-64) 
Für C-64 + PC-128 (64er-Modus): prof. Software 
aus den Bereichen Astrologie, Biorhythmik, 
Persönlichkeitstest und Heilpraktikerprüfung 
Fordern Sie unsere ausführl. Informationen an: 


BEATE ZILLE — SOFTWARE 
Berger Straße 272, D-6000 Frankfurt/M. 60 
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LEEZEI III ES SSSSEESEeee ee 


PRG. FÜR C64 + 1128 — EXZELLENT IN STRUKTUR, 
GRAFIK, SOUND — ALLE PRG. IN DEUTSCH 


iin 


$uperpreise » Superpreise + Superpreise 
Amiga 500 1298,— Amiga 1000 1749,— 
Amiga 2000 2649,— Monitor 1081 849,— 
Amiga Sidecar 1649,— 

DELUXE Paint, DELUXE Video, DELUXE Print, je Progr 229,— 
Commodore 064 Il 449,— Commodore C 128 549,— 
Floppy 1541C 449,— Commodore128D 1129,— 
Monitor 1701/1801 498,— Monitor 1901 729,— 
CommodorePC 10ll 2598,— Commodore PC 2011 3598,— 


Druckerparade + Druckerparade 


Panasonic 1080 549,— Epson FX-800 998,— 
Panasonic 1091 698,— EpsonFX-1000breit 1398,— 
Panasonic 1092 949,— Epson EX-800 1498, — 
Star NL-10engl 749,— EpsonEX-1000 breit 1898,— 
StarNL-t0m. Inter. 898,— EpsonL0800 1698,— 
Star NX-15 Breit 1298,— EpsonLO-1000 breit 2198,— 
NECP6 1598,— EpsonLOQ-2500breit 2898,— 
NECP7 1998,— EpsonS0-2500breit 3598,— 
NEC Pöcolor 1998,— Epson HI-80 1349, — 
Disketten 5,25 Zoll No Name 108t.7,95. 1008t.75,— 
Diskettenboxt. 100 Disketten mit Schloß nur 19,95 
Druckerpapier 2000 Blatt im Karton Sonderpreis 34,95 


s Gen Bermichen Anlage — Remtersnären — Ver 


® Iehen — Lasten — Laufzeit — Amortisation e z 

Densen — Konvertierung IN %.- 
— Nach Eingabe von Grdbe, Gewicht. Geschlecht. Arbeitsiestung erfolgt Beca 
rechnung und Vergleich m. ©. tatsächlichen Ermätnung (Fett, Eimeih, Möhlehydraie). Ice 
gewicht, Vitalstoffe. auf Wunsch Au DM 56 


COMMODORE 128 DM 36,80* 


12 GESELLSCH. SPIELE (Domine Ike, Kiffen, Pu, Reaktion, Lotte 
A-1. 4 Steine, Minkaunus, Skat 
12 REAKTIONSSPIELE \Abiankmar 


unverbindlich empfohlene Stückpreise 


Froschieben. Goldmine. Kerker, Mäuse 


iR 


TTRRURRTRETEET UHR uu une 


PROGRAMMOTHEK oruckt L 
Yen oder 1500 PRAG. , mit Disk-Liste. wo wi 
DER C64/C128 ALS SCHREIBMASCHINE + ri, 2 
ertur, Rand. Signale, Auswurt, Mestzeilenmelsung. 5 Dauer-Arielitigde zu st r 
en 
mg. Lieferschein, Mahnung 


DM 19,80* 
DM 29,80* 
Simons's Basic DM 29,80* 


vs USW. — FORDERN SIE MIT FREIUMSCHLAG UNSERE LISTE AN! 
neh hbeheetsehabeheteh Bräter 


Staubschutzhauben aus weichem Kunstleder für C64all 10,— 
Fioppies 1541/50/70/71,DruckerMPS802/803jenur 15,— 


comPpumask | 


Im Compu 
+ 0M3 Nachnahme + 


Am Schnei 


WER  Bachstr. 52, 7980 Ravensburg, 
rn Telefon 0751/26138 + 26497 


TRRERERFRTERHERTER TER ETF TREN 


ot 


“rnkereeneneee .nn.....n.n...n....n.aer 


STEUERN - MESSEN - REGELN 
mit C 64/C 128 oder PC (ab Jan. 1987) 
für Hobby, Ausbildung u. profession. Einsatz! 


nd ann Eingänge f 
Digitale Alcnängn 
x r, Analoge 
Eingänge oder 12 Bit-A ;.) zur Erfassung 
und Analoge Ausgä 
h 


MANFRED KÜHN or. «wc 


L r Mik € tror 
Friedrich-Ebert-Allee 61 : 2000 Schenefeld 
Telefon 040 - 830 87 38 


Rubrik finden. 
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KK_SOFTWARE * KK SOFTWARE * KK 
WELT DER TATSACHEN 


Ein interessantes und leistungsfähiges Quizspiel mit Risiko-, 
Schnell-, Setz-, Bonusfragen und Joker, sowie SPEEDQUIZ, wo 
Schnelligkeit Trumpf ist. Leicht bedienbarer QUIZEDITOR zum 
Eingeben eigener Fragen, die auf Tastendruck verschlüsselt 
S C haben. Grundversion 
zwanzigtausend) erweiterbar 


} Dauertietstpreis 24.90 DM 
SUPERLIGA V 3.2 
Umtangreiches und leistungstähiges Programm zur Verwaltung 
beliebiger Sportiigatabelien. Nützlich für Vereine, Sportreporter so- 
wie Privatpersonen. Einige wichtige Merkmale: Verwaltung beliebi- 
ger Tabellen mit max. 21 Mannschaften — Einfache Eingabe von 
Mannschaften und Ergebnissen mit speziellem Editor — Ausdruck 
aller Parameter — Automatische Tabellenberechnung — Berück- 
sichtigung von Nachholspielen — Spezialtabellen (z. B. alle Heim- 
spiele) — Simulation von kommenden Spieltagen, Rückblick auf 

vergangene Spieltage und Tabellen, und und und 
Best.Nr.: CK 1000 R Dauertiefstpreis 24,90 DM 


RISIKOPOKER 


Spannung wie bei einem Original Spielautomaten, große farbige 
Kartendarstellung mit Musikausgabe, überraschend langer 
Spielspaß 

Best. Nr.: CK 1020 R Dauertiefstpreis 9,90 DM 

* Alle Programme ohne kostenaufwendigen Kopierschutz # 

Für 064 und C128 auf Diskette, Lieferung per Nachnah- 
me/Vorauskasse/Scheck zzgl. Porto und Verpackung 
Kto 980666000 BLZ 74380007 Dresdner Bank LA 


KK-SOFT Sebastianstr. 6, 8315 Geisenhausen 


o 4 
Was gibt’s wo? 
Auf diesen Seiten können Sie unseren Lesern Ihr Angebot 
bestens präsentieren. 


Die RUN-Leserbefragung hat gezeigt, daß rund 85% der Leser 
die Anzeigen beachten und vor allem 68% Lösungen ihrer 
Probleme in Anzeigen suchen. Wenn unsere Leser also fragen: 
„Was gibt's wo?“, sollten sie doch auch Ihr Angebot in dieser 


Mindesteintrag 3mal, pro Schaltung DM 420,—. 


Acrylglos-Druckerstünder 
" idschi rm-Blendschutzfilter 304*2 


oufklappbar 


NO NAME 20; 10 St... 


Diskettendoppler. ..ın.. 
EDV-Selbstklebeetiketten 
Plotter VC 1520,. 
Reinigungsdisketten-Set 
Tonbondkassetten: TDK, SA 90,. 


BETEEEEEEERBEEE BEBEEHBEER 
223323333322 332 3232223833 


WS-Videokassetten: TDK, Super A' 


Software für C64/C128: 

ASI...Planet d,Todes Hard-Copy BOl+... 
Bundesliga Live z Moneytrans, 
Briefmarkenverwoltungl4, Rule the Wo: 
Conos Factory... Schacharchiv., 


Kostenlosen Katalog 24 Stunden automatische 
anfordern ! Bestellannahme: Tel. 08236 882 


Soft & Hardwarevertrieb Scheiba 
Talstr. 26 8901 Dinkelscherben 


er ET in. ee Bil ui 


Viele Programmierer benützen 
die exotischsten Tricks, um ihre 
Basicprogramme vor neugierigen 
Augen zu schützen. Die gängig- 
sten Methoden sind Autostart, 
kombiniert mit diversen POKES, 
oder SHIFT-L nach REM-Zeilen so- 
wie DELs im QUOTE-Modus, wel- 
che Basic-Zeilen sofort nach dem 
Listen zerstören. „Upper-Tools” 
kann jeden komplizierten List- 
schutz entfemen. Die Handha- 
bung des Programms ist kinder- 
leicht: Erst wird „Upper-Tools" ge- 
laden, dann das Basicprogramm. 


Integriertes Renew 
LEITEN IE 


Der Listschutzentferner wird mit 
SYS 49496 aufgerufen. Probleme 
gibt es nur bei Programmen, die 
sich selbst mit Autostart starten. 
Hier löst man zuerst einen Reset 
aus und aktiviert dann eine Re- 
new-Routine des „Upper-Tools" 
mit SYS 49152. Jetzt kann das Pro- 


Listsehutz 


Schlechte Zeiten 
für Basicprogramme 
mit Listschutz! Endlich 


Schluß mit der 
Geheimniskrämerei; 
„Upper-Tools“ entfernt 
jeden Listschutz. 


gramm ganz normal aufgelistet 
werden. Sollte sich herausstellen, 
daß. noch ein konventioneller List- 
schutz eingebaut ist, so Kann die- 
ser wiederum mit SYS 49496 ent- 
fernt werden. 

„Upper-Tools" ist als kombinierter 
Hexdump-Basiclader abgedruckt 
(Listing 1). Wird das Programm als 
Basiclader. eingegeben, so muß 
der Lader vor dem Start abgespei- 
chert werden. Nach RUN werden 
dann die Daten in den Speicher 
gepoket. Das fertige Maschinen- 
programm kann dann mit 


a5,2b,8d,34,03,a5,2c,8d, 
35,03,35,24,8d,36,03,a5, 
2e,8d,37,03,35,2f,8d,38, 
03,85,30,84,39,03,a5,31, 
8d,38,03,a5,32,8d,3b,03, 
a9,64,85,2b,89,c0,85,2c, 
a9,00,84,63,c0,a9,00,85, 
37,89,d0,85,38,39,e1,Bd, 
28,03,20,18,e5,a9,06,8d, 
86,22,20,44,e5,a9,52,8d, 
77,02,a9,75,8d,78,02,a9, 
0d,84,79,02,89,03,85,c6, 
60,00,00,00,24,c1,01,00, 
37; 34,93jee,/62,28,38,382; 
30,29,33,97,34,34,2c,c2, 
28,38,32,31,29,33,97,34, 
35,00,c2,28,38,32,38,29, 
3a,97,34,36,2c,c2,28,38, 
3er33e@93:38,97,35,39,86), 
30,38,97,31,37,020,C2,cC0, 
38,38,24,29,38,97,34,38; 
2c,c2,28,38,32,35,29, 3a, 
97.133:39,66,C08,69,30,3%, 
36,29,38,97,35,30,2c,c2, 
©0,39,92,37;e9,38,97,35; 
36;020,31,36,30,38,97,38, 
30,35,380,2c,31,33,9e, 34, 
38,32;39/31,384,397,34,36, 
26,00,28,33,33,29,38,97, 
34 35 €0.,68,629,37,38,31, 
29,a3,32,3a,9c,3a,9e,35, 
38,36,34,38,3a4,99,22,05, 


POKE 43, 0:POKE 44,192 

POKE 45,23:POKE 46,203 

SAVE "name*,8 

auf Diskette abgespeichert wer- 
den. Wird es als Hexdump einge- 
geben, so muß der RUN-Checker 
benutzt werden. Als Startadresse 
ist C000 anzugeben. Das Pro- 
gramm wird mit LOAD"...",8,1 ge- 
laden. 

(V. Würthele) EEEEEEEEEEHEEEEEE 


In dieser Ausgabe entfällt der 
RUN-Korrektor für Basic- und 
der RUN-Checker für Maschi- 
nenprogramme. Damit haben 


wir Platz für mehr aktuelle 
Listings. Beide Programme be- 
finden sich auf jeder Run-o-thek- 
Diskette. In der nächsten RUN 
sind die Eingabehilfen wieder 
mit von der Partie. 


4f,4b,2e,20,580,52,4f,47, 
52,41,44,09,47,45,58,35 
54,54,45,54,2e,20,52,45, 
4s,45,57,20,52,45,47,44, 
59,28,22,00,52,c1,02,00, 
99,22,55,50,50,45,52,2d, 
Sy HF SF 4c,53,20,4d4,49, 
52,00.53,39,53,00,34,39, 
34,39,36,2e,9a,22,3a,97, 
38,30,38,20,32,33,37, 3a, 
80,00,00,00,59,00,00,00, 
a5,2b,8d,34,03,85,2c,8d, 
35,03,35,2d,8d,36,03,a5, 
2e,8d,37,03,35,2F,8d,38, 
03,a5,30,84,39,03,a5,31, 
8d,33,03,a5,32,8d,3b,03, 
a9,31,85,2b,a9,c1,85,2c, 
a9,00,8d,a8,c1,39,00,85, 
37,39,d0,85,38,a9,e1,8d, 
28,03,20,18,e5,4c,71,88, 
00,63,c2,00,08,97,35,33, 
32,38,30,2c,2e,3a,97,35, 
33,32,38,31,26,28,38,39, 
22,05,93,08,0e,9e,d7,c5, 
d®,20,53,45,49,47,54, 3a, 
22,38,99,46,31,35,29,22, 
05,11,d5,d0,d0,c5,d2,2d, 
d4,cf, ck, oe,d3,ce,J3a,93, 
22,11,20,20,20,20,9a,c7, 
45,53,43,48,52,49, 45,42, 
45,4e,20,556,4f,4e,20,d6, 
4f,4c,4b,45,52,20,d7,55, 


>» 
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Be 


650 
6608 
6708 
688 
639 
790 
7190 
72» 
7308 
7490 
758 
7608 
770 
788 
798 
8008 
810 
8228 
830 
840 
850 
868 
870 
880 
890 
900 
318 
920 
930 
349 
950 
968 
970 
989 
992 
1000 
1218 
1920 
1030 
1040 
19058 
10698 
1078 
1080 
1098 
11928 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1180 
1190 
1208 
1218 
1220 
12390 
1240 
1258 
12608 
1270 
1289 
1298 
1308 
1310 
1328 
1338 
13408 
1358 
1368 
1378 
1380 
1398 
1408 
1418 
1420- 
1438 


45, 52,53 ,485 435,30, 39, ce, 
38.,99,22,11,11,96,07,41; 
45,48,4c,45,4e,20,d3,49, 
45,3a,22,38,99,36,36,29, 
e2,11,11,9b,28,31,29,20,; 
cc,c9,d3,d4,d3,c3,c8,d5, 
d4,da,20,c5,ce,d4,c6,c5, 
d2,ce,c5,ce,22,3a,39,86, 
36,29,22,11,28,32,29,20, 
ec,cf,2d,26,c8,c9,c2,d3, 
d4,c5,22,33,99,36,36,29, 
22,11,28,33,29,28,c8,65, 
dB, 20,49,4e,20,c4,c5,c3, 
22,00,d0,c2,01,00,99,a6, 
36,29,22,11,28,34,29,20, 
c4,c5,c3,28,c9,ce,20,cB, 
c5,d8,22,33,99,26,36,29, 
e2,11,28,35,29,20,d8,c1, 
d2,d4,C3,c0,c5,c1,d2,22, 
3a,99,86,36,29,22,11,e8, 
36,29,20,c5,ce,c4,c5,2®, 
d5,d0,d0,c5,d2,2d,d4,cf, 
cef,cc,d3,22,33,99,22,11, 
11,96,c9,48,52,45,20,d7, 
41,48,4c,33,20,05,22,3b, 
3a8,937,31,39,38,2c,2e,2®, 
£f8,c2,02,00,97,32,30,34, 
©c,2e,3a,al1,41,24,3a,41, 
b2,c6,28,41,24,aa,22,2a, 
Be,29,38,86,41,53,3%4,39, 
b®,41,b1,35,34,a7,32,00, 
21,c3,03,88,937,32,30,34, 
20.31 ,38,99, 41, 24,398,91, 
c6,28,41,24,29,ab,34,38, 
893,37,20c,32,34,2c,32,38, 
ec,32,36,20,33,30,20,35, 
00,8d,c3,04,00,97,34,33, 
2c,c2,28,38,32,30,29,3a, 
97,34,34,2c,c2,28,38,32, 
31,29,3a,97,34,35,2c,c2, 
28,38,32,32,29,3a,97,34, 
36,2c,02,28,38,32,33,23, 
3a,97,35,36,2c,31,36, 30, 
38,37,35,35,2c,2e, 38,97, 
34,37,2c,c2,28,38,32, 34, 
29,38,97,34,38,2c,c2,28, 
38,32,35,29,3a,97,34,39, 
2c,c2,28,38,32,36,29,3a, 
97,35,30,2c,c2,28,38,32, 
37,29,38,8e8,00,d3,c3,05, 
00,8d,34,3a,9e,35,38,36, 
34,38,3a,99,22,05,4f,4b, 
2B8e,20,41,55,46,54,52,41, 
47,20,42,45,45,4e,44,45, 
S4,2e,20,55,50,50,45,52, 
2d,54,4f,4F,40,53,20,52, 
45,41,44,59,2e,9a,22,3a, 
97,38,30,38,2c,32,33,37, 
3a,80,00,03,c4,06,00,399, 
22,d4,c1,d3,d4,c5,20,c6, 
d5,c5,d2,d3,a80,c8,c1,dS, 
dd,d4,cd,c5,ce,dS,cS,21, 
22,38,97,31,39,38,2c,2e, 
38,92,31,39,38,2c,31,3a, 
8a,30,00,6d4,c4,07,00,39, 
22,33,22,3a,4c,b2,c2,28, 
38,32,30,29,aa,32,35,36, 
&06,c2,28,38,32,31,29,3a, 
45,b2,c2,28,38,32,32,28, 
aa,32,35,36,ac,c2,28,38, 
32,33,29,38,99,22,93,ce, 
c9,d3,d4,d3,c3,c8,dS5,d4, 
da,a®d,c5,ce,d4,c6,c5,d2, 
ce,c5,ce,11,22,3a,8b,45, 
ab,32,b2,4c,87,99,22,11, 
99,cb,45,49,4e,20,d0,52, 
4f,47,52,41,4d,4d, 21,11, 
22,34,89,36,00,a2,c4,08, 
00,50,b2,2e,3a,99,22,9a, 
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cf,cb,2e,28,d8,d2,cf,c7, 
d2,c1,cd,cd,290,d7,c9,d2, 
c4,28,c5,ce,d4,cc,c9,d3, 
d4,d3,c3,c8,d5,d4,da,d4, 
28,11,11,11,22,38,89,31, 
30,800,b56,c4,09,00,“4c,b2, 
52,3a,41,b2,2e,3a,4d,b2, 
Be,3a,5a,b2,2e,29,e8,cH, 
02,08,52,b2,c2,28,4c,29, 
a3,32,35,36,ac,c2,28B,4c, 
aa,31,29,3a,4e,b2,c2,28, 
“4c,aa,32,29,a3,32,35,36, 
ac,c2,28,40,aa,33,29,3a, 
8b,52,b2,28e,a7,32,32,90, 
1a,c5,2b,20,39,22,91,9a, 
20,53,45,49,4c,45,22,4e, 
3a,8b,c2,28,4c,aa,34,29, 
b2,2e,a7,81,54,b2,"4c,aa, 
34,84,4c,a8,38,3a,97,54, 
2c,35,38,33,82,3a,41,b2, 
31,00,40,c5,0c,00,81,58, 
b2,4c,aa,34,a4,52,ab,32, 
3a,57,b2,c2,28,58,29,3a, 
8b,57,b2,32,30,a7,97,58; 
2c,35,38,3a,41,b2,31,00, 
56,c5,0d4,80,8b,57,b2,33, 
34,37,53,b2,5a,aa,31,3a, 
4d,b2,5a,af,31,00,6f,c5, 
8e,00,8b6,57,b2,31,34,31, 
af,4d,b2,31,a7,97,58,2c, 
35,38,3a,41,b2,31,00,7e, 
c5,0f,08,86,57,b2,31,34, 
33,37,84,31,39,00,ad,cS, 
190,20,82,33,8b,41,b2,31, 
n7,39;22,91;22;83,31,32, 
29.,22.05.12.53,43,48,55, 
54,5a,28,41,55,53,47,45, 
42,41,55,54,21,22,3a,50, 
b2,580,aa,31,00,d3,c5,11, 
00,8b,41,b2,28e,a7,99,22, 
91,22,83;31,32,29,22,9; 
5a,45,49,40,45,20,4f,48, 
4e,45,20,53,43,48,55,54, 
5a,22,00,da,c5,12,00,89, 
39,008,87,c5,13,00,8b,58, 
b2,52,8b,32,a7,88e,020,11, 
c6,14,00,81,54,b2,58B,aa, 
31,a4,52,ab,32,3a,8b,c2, 
28,54,29,b3,33,32,b2,c2, 
28,54,;23,b1,39,35,a7,97, 
54,2c,35,38,3a,41,b2,31, 
80,19,c6,15,00,82,3a,8e, 
00,96,c6,16,008,9e,35,38, 
36,34,38,3a,99,22,05,11, 
41,22,50,22,58,45,48,4o,; 
45,4e,20,57,41,52,45,4e, 
20,47 ,45,53,43,48,55,45, 
54,58 ,54,2e,22,38,99,22, 
20,55,4e,54,45,52,53,55, 
43:38 ,54;20,57,55;,52, 44, 
45,20,42,49,53,20,42,59, 
54,45,22,40,22,9d,28,22, 
3a,8b,45,4e,ab,33,b1,4c, 
50,37,939,22,208,580,52,4f, 
47,52,41,4d,4d,20,49,53, 
54,22,45,ab,4c,22,42,59, 
54,45,53,20,4c,41,45,4e, 
47,45,52,2e,22,00,bd,c6, 
17,80,99,22,20,41,55,46, 
54,52,41,47,290,42,45,45, 
Ye, ,44,45,54,2e,22,3a,8d, 
34,38,97,38,30,38,2c,32, 
33,37,38,80,800,F7,c6,18, 
00,39,22,05,93,cc,cf,2d, 
286,0c8,09,c2,d9,d4,c5,22, 
3a,39,22,11,9a,da,41,48, 
4c,3a,20,05,22,3b,3a,4d, 
b2,2e,3a,45,b2,35,3a,8d, 
33,33,32,8b,52,b1,36,35, 


c6f® 
c6fB 
c700 
c788 
c710 
c718 
c728 
c728 
c730 
c738 
c740 
c748 
c758 
c758 
c768 
c768 
c770 
c778 
c788 
c788 
c798 
c798 
c7a8 
c7a8 
c7b® 
c7b8 
c7c® 
c7c8B 
c7d® 
c7d8 
c7ed 
c7eB 
c7f® 
c7fB 
c800 
c8B88 
c81® 
c818 
c8B20 
c828 
c838 
c838 
c8B40 
c84B 
c858 
c858 
cB60 
c868 
c870 
c878 
cBBo 
c888 
c839 
c898 
cBad 
cBa8 
cBb® 
c8b8 
cBcd 
c8c8 
cBd® 
cBdB 
cBed 
c8e8 
cBf® 
cBfB 
c900 
c908 
c910 
c918 
c920 
c928 
c938 
c938 
c3949 
c948 
c958 
c958 
c968 


2230 
2240 
2250 
2260 
2270 
2280 
22390 
2308 
2310 
23208 
2338 
2340 
2350 
2360 
2378 
23808 
2390 
24008 
2410 
2420 
24308 
2440 
24SO 
2460 
2470 
24808 
2490 
2598 
2518 
2520 
2530 
25408 
2550 
2568 
2578 
25808 
2590 
2608 
2618 
26208 
2630 
2640 
2650 
2660 
2670 
26808 
2698 
2708 
2710 
2720 
2730 
2748 
2750 
2760 
2778 
2780 
2790 
2800 
2818 
2820 
2830 
2B4O 
2850 
2868 
2870 
2880 
2830 
29908 
2310 
2920 
23930 
2940 
29508 
23960 
[= 4) 
2988 
29908 
30098 
3010 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


35,33,35,a7,32,34,00,37, 
c7,19,00,45,b2,b5,28,52, 
ad,32,35,36,29,3a,52,b2, 
S2,ab,32,35,36,ac,45,3a, 
99,22,11,20,96,cc,cf,2d, 
c2,d9,d4,c5,3a,22,52,3a, 
99,22,11,20,c8,c9,2d,c2, 
0d9,d4,c5,38,22,45,22,11, 
11,1e,22,33,89,36,00,7a, 
c7,18,00,99,22,05,93,c4, 
c5,c3,28,d4,cf,20,c8,c5, 
d8,2e,22,384,99,22,11,9a, 
oN, 19,58,39;4d,41,4c,2d, 
da,41,48,4c,3a,20,05,22, 
3b,3a,4d,b2,2e,3a,45,b2, 
35,34,84,33,33,38,8b,52, 
b1.,36,35,35,33,35,37,38, 
36,88,e1,c7,1b,00,52,24, 
b2,22,22,33,81,54,b2,31, 
a4,34,38,4d,b2,31,36,ae, 
28,34,ab,54,29,3a,41,b2, 
b5,28,52,ad,4d,29,3a,52, 
b2,52,ab,“4d,ac,41,3a,48, 
e4,b2,48,24,3a,c7,28,41, 
aa,34,38,8b,28,41,b1,39, 


c5,c9,cc,c5,ce,2® 
c5,d3,c3,c8,c5,ce, 
99,22,11,98,c1,4e,c8 
4F,20,4c,4f,45,53,43,48, 
45 ,4e,33,20,05,22,3b,3a, 
45,b2,35,3a,4d,b2,31,3a, 
84,33,33,3a,5a,b2,52,3a, 
99,22,11,98,02,49,53,€8, 
57,4f,20,48,49,4e,3a,2®, 
05,22,3b,3a,8d,33,33,3a, 
45,b2,52,3a,8b,5a,b1,45, 
b0,45,b1,36,33,39,39,39, 
a7,33,30,09,aa,c9,1Ff,28, 
33,22,50,93,11,11,11,58; 
3d,22,5a,22,3a,45,3d,22, 
45,22,20,20,20,20,22,3a, 
99,22,11,11,20,5a,3d,5a, 
2b,31,3a,49,46,5a,3e,3d, 
45,54,08,53,53,53,34, 39, 
31,39,36,22,38.,99, 22,11, 
11,3Ff,22,3b,c7,28,33,3%, 
29,36, 2228233723737, 22, 
3b,3a,99,22,53,3d,22,c7, 
28, 33,34 2872258; R2,C7; 
28.,33,34,03.28,38.,35, 234, 
22,07,28,33,33,89,22,45, 
22 ,67,28,33,91,029,228,13, 
11,11, 095,22707,28,33,3%, 


29,8c,37,29,3a,82,3a,399, 
22,11,11,99, 13753; 29, 
49,53,54,28,49,4e,20,48, 
45,58,33,280,05,24,22,48, 
24,22,11,11,22,38,89,36, 
00,58,c8,10,28,99,22,05, 
93,c8,c5,d8,28,d4,cf,a®, 
c4,c5,c3,28,22,38,99,22, 
11,98,c8,45,58,41,44,45, 
5a,49,4d,41 ,4c,2d,da,41l, 
48,4c,3a,20,05,24,22,3b, 
3a,4d,b2,31,3a,45,b2,34, 
3a,8d4,33,33,32,52,b2,2e, 
3a,81,54,b2,31,a4,34, 3a, 
41,b2,c6,28,ca,28,52,24, 
20,54,2c,31,29,29, 38,41, 
b2,41,ab,34,38,a2,28,“41, 
b1,36,34,29,ac,37,3a,52, 
b2,52,aa,41,ac,31,36,ae, 
28,34,8b,54,29,32,82,20, 
7F,c8,1d,80,99,22,11,11, 
99,44,41,53,20,419,53, 55 
20,49,4e,20,44,45,5a,49, 
4d,41,4c,3a,05,22,52,22, 
11,11,22,38,89,36,08,ec, 
c8,1e,20,99,22,05,33,da 
‚E0,cE 

22,38 

‚57 


67 
c2 
57 
ec 
fo 
e4 
fo 
39 
6b 
81 


3920 
3038 
3040 
3052 
38608 
3078 
3082 
3038 
3198 
3118 
31208 
3138 
3140 
3150 
31698 
3178 
3188 
3198 
3208 
3218 
3220 
32308 
3240 
3258 
3269 
32708 
32808 
3299 
3308 
3318 
33298 
3338 
3340 
3350 
3360 
3378 
3388 
3398 
34008 
3410 
34208 
3430 
3440 
3458 
3468 
3478 
3488 
3490 


60010 


602208 


60038 
60040 
60058 
60060 
60078 
60088 


600320 


data 


e9,22,58,22,3b,33,99,c7, 


12 


data 28,33,34,29,22,13,90,22, 7d 
data c7,28,33,34,29,22,3b,3e, a6 
data 46,cf,54,3d,36,33,30,54, 6e 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


for a=-49152 to 51984 step 


4f,36,33,34,38,50,0f,54; 
2c,31,33,3a,4e,c5,3a,5®, 
cf ,‚31;39,38,20,35,22, 3a; 
993,22,11,11,20,98,12,22, 
3b,08,e3,c9,20,00,399,22, 
4c,4f,45,53,43,48,45,4e, 
2e,cle,2e,92,90,13,22,3b, 
33,81,54,b2,36,33,30,a4, 
36,34,30,38,97,54,2c,31, 
33,38,82,38,97,31,39,38, 
2c,31,30,33,8d,34,3a,8®, 
3a,80,209,£fc,c39,21,00,97, 
32,30,34,2c,31,3a,4c,b2, 
2e,3a,52,b2,2e,3a,52,24, 
b2,22,22,08,1e,ca,22,00, 
99,22,a4,9d,22,3b,3a,al, 
41,24,33,8b,41,24,b2,22, 
22,b8,41,24,b2,c7,28,33, 
34,29,37,33,34,200,41,ca, 
23,800,8b,41,24,b2,c7,28, 
31,33,29,af,4c,bl,2e,a7, 
99,22,20,22,3a3,52,b2,c5, 
28.,52,24,.29,30,89, 34,31, 
00,6Ff,ca,24,080,8b,41,24, 
b2,c7,28,32,30,29,af,“4c, 
b1l,2e,a7,99,22,20,9d,9d, 
20,9d4,22,3b,3a,4c,b2,4c, 
8b,31,38,52,24,b2,cB,28, 
S2,24,2c,4c,41,29,00,7b, 
ca,25,00,8b,4c,b2,45,a7, 
33,34,00,a7,ca,26,00,8b, 
“4d,b2,31,87,8b,c6,28,41, 
24,29,b3,37,31,;af,c6,88, 
41,24, 293/651, 36,34,87,41, 
e4,b2,C7,00,06,08,44,2%;, 
29,29,38,89,34,380,00,c1, 
ca,27,00,8b,c6,28,41,24, 
29,b3,34,38,b0,c6,28,41, 


ca,28,08,99,41,24, 

‚e4,b2,52,24,aa, 

‚“c,b2,4c,aa,31l, 
3a 33,34,08,0d,cb,23, 
00,8b,4d,b3,b1,2e,af,c3, 
e8,52,04,29,b3,34,a7,59, 
24,b2,22,30,30,390,30,22, 
3a,52,24,b2,c8,28,59,24, 
2c,34,ab,c3,28,52,24,29, 
29,aa,52,24,00,13,cb,2a, 
00,8e,00,00,200,59,'d,2®, 


8:5=-®:c-®:for b=® to 7: 
gosub 69040 


s=s+h+l-c:c=s> 255: s=-255-s 


and 255:poke a+b,h+l:next 
b:gosub 60849 


£f$=-"pruefsumme ok":if s<> 


h+l then f$="[rvs] 
pruefsummenfehler”:f=f+1 


gosub 600898:next a:print ” 


Cdown]”Ff"fehler”:end 


read h$:gosub 68059: h=1* 


16:h$=mid$ Ch$,2) 


l=-asc Ch$+"x”)-48:if 1<0 


or 1>22 then 60088 


if 1<18 then return 
1-1-7:if 1>9 then return 
f$=-"C[rvsleingabefehler”:1- 


®:f-f+1 


print ”zeile” peek (64)* 


856+peek (63)Ff$:return 


7d 
68 
7e 
eg 
eb 
el 
08 
eb 
36 
aB 
04 
do 
9b 
b7 
28 
fe 
79 
78 
Ba 
7e 
Sb 
49 
86 
ca 
4b 
82 
be 
74 
ab 
53 
72 
de 
97 
fd 
ec 
#5 
d3 
44 
06 
Ya 
03 
e9 
“5 
7e 
9e 
73 
(24 
b2 
3b 
67 


4240 


5034 


2267 
2715 
3198 
1044 
1334 
2460 


2726 


Im VDE des 


System: C128, 80-Zeichen- 
Monitor 

Typ: Tips & Tricks 

Sprache: Basic/ASM 


Die Bedienung des 80-Zeichen- 
Bildschirmes übernimmt im C128 
der Video Display Controller 
8563, abgekürzt VDC genannt. 
Der VDC ist ein 80-Zeichen-Farb- 
bildschirm-Kontrollbaustein. Er 
erzeugt alle notwendigen RGBI-Si- 
gnale für einen Monitor und kann 
bis zu 64 K RAM verwalten. Der 
VDC beherrscht auch hochauflö- 
sende Grafik, die allerdings vom 
Basic 7.0 nicht unterstützt wird. 

Im C128 verfügt der VDC über 16 
KByte eigenes RAM, das er völlig 
selbständig verwaltet. Es kann 
von der CPU nicht angesprochen 
werden, genausowenig wie der 
VDC aus dem RAM der CPU nicht 
lesen kann. In den 16 K des VDC 
werden Bild- und Farbspeicher 
sowie der gesamte Zeichensatz 
untergebracht. Daher kann der 
VDC alle 512 Zeichen zur gleichen 
Zeit darstellen. 


Bastler vor 
TEE) 


Hier eröffnet sich ein Anwen- 
dungsfeld für Hardwarebastler. 
Man braucht nur das VDC-RAM 
auf 64 K aufzustocken, einige Regi- 
ster umzuprogrammieren und der 
C128 kann (mit entsprechender 
Software) Bit-Map-Grafik mit 640 x 
400 Pixel Auflösung darstellen. 
Und das in Farbe, denn dann ist 
auch ausreichend RAM für einen 
Farbspeicher vorhanden. 

Die 37 Register des VDC lassen 
sich in zwei Gruppen einteilen: 
Anzeige- und lInitialisierungsregi- 
ster. Letztere enthalten alle Para- 
meter, die zum Bildaufbau benö- 
tigt werden. Im Handbuch ist die 
Registerbelegung tabellarisch 
aufgelistet. Auf die Wiedergabe 
einer Register-Tabelle wird daher 
hier verzichtet. 
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Bis zu 80 Zeichen zeigt 
der C128 in einer Zeile 
auf dem Bildschirm. In- 
tern verwaltet ein Chip 
mit der Bezeichnung 


8563 diesen Speicher- 
bereich. Mit ein paar 
Tricks nutzt man den 
VDC für andere Zwek- 
ke als Bildschirme 
verwalten. 


und Farbspeichers aus der erwei- 
terten Zeropage. Wenn die Start- 
adresse des Bildspeichers in den 
VDC-Registern 12/13 geändert 
wird, so muß das höherwertige 
Byte auch in die Speicherstelle 
$A2E(2606) des normalen RAMs 
geschrieben werden. Analog 
dazu gilt das auch für Speicher- 
stelle $A2F(2607). Im Betriebssy- 
stem wird die Basisadresse nicht 
addiert, sondern OR-verknüpft. 
Dabei werden die Bits 0 und 1 be- 
einflußt. Bild- und Farbspeicher 
dürfen daher nur um ganze Seiten 
verschoben werden. 

Die Kommunikation zwischen CPU 


REM VDC AUF 48-ZEICHEN-MODUS UMSCHALTEN 


W=DEC ("CDCC") :REM VDC/SCHREIBEN 


REM REGISTER FUER 40-ZEICHEN PROGRAMMIEREN 
FOR N=1T05:READ R,1:SYS W,I,R:NEXT 
DATA 0,69,1,40,2,55,25,86, 27,40 


REM AN NEUES BILDSCHIRMFORMAT ANPASSEN 


WINDOW 8,0,39, 24 


REM TEST 


A$="1234567890" :B$="ABCDEFGHIJ":PRINT"mR" 
FORI=1T023:PRINT A$A$A$B$:NEXT 
PRINT"24" ; :SLEEP2:PRINT 

PRINT"ZURUECK IN DEN 88-ZEICHEN-MODUS?" 
PRINT"RUN/STOP+RESTORE DRUECKEN 


Listing 1 schaltet den VDC per Software an. 


Die normale Speicheraufteilung 
des VDC lautet: 


Adresse Funktion 
$0000-$07DO0 


$0800—$0FDO 


$1000—$1FFF 
$2000—$2FFF 
$3000—$3FFF 


Diese Speicherbereiche können 
innerhalb des VDC-RAMs durch 
Ändern der Startadressen fast be- 
liebig verschoben werden. Nur 
fast, denn das Betriebssystem holt 
sich die Startadressen des Bild- 


Video-RAM (2000 Bytes) 
Farbspeicher und Attribute (2000 Bytes) Reg. 20,21 
im Textmodus unbenutzt 

Zeichensatz Großbuchstaben/Grafikzeichen Reg. 28 
Zeichensatz Klein-/Großbuchstaben 


und VDC erfolgt indirekt, denn 
der VDC besitzt im Zugriffsbe- 


Startadresse 
Reg. 12,13 


reich der CPU nur zwei Speicher- 
stellen, über welche auf die 37 Re- 
gister des VDC zugegriffen wird: 
Speicherstelle $D600 (dezimal 
54784) ist das Adreß- und Statusre- 
gister und $D601 (dezimal 54785) 


;vdce in den 4d-zeichen-modus 
umschalten 


; (ce)1987 by ilse & rudolf wolf 


go4® 


fillreg 


“= $0c0d0 


jsr 


vector 


‚vde-register 
umprogrammieren 


Ida 
jsr 
Idy 
Ida 
pha 
Ida 
tax 
pla 
jsr 


#393 

sffd2 ;celr-screen 
#508 

data,y 


register,y 


Sedce ;reg. 


programmieren 


iny 


cpy 
bne 


window 


Ida 
Iidx 
Idy 
sta 
stı 
stı 
sty 
ida 


#505 

fillreg 

anpassen 
#327 ;39 sgalten 
ss00 

#518 ;2& zeilen 
$e7 ;spalte rechts 
Se6 ;spalte links 
Se5 ;zeile oben 
Seä ;zeile unten 
#393 


VDC IN DEN 48-ZEICHEN-MODUS 
UMSCHALTEN 


REM UMPROGRAMMIEREN AUF 40-ZEICHEN 
REM SYS3075 STARTET NUR DEN 1.TEIL 
SCNCLR:S=9:FOR 1=3072 TO 3127 

READ D:S=S+D:POKE I,D:NEXT 

IF 5=64802 THEN PRINT"1.TEIL=OK!" 
DATA 32,56,12,169,147,32,210, 255 
DATA 160,0,185,51,12,72,185,46 

DATA 12,170,104,32,204,205, 200,192 
DATA 5,208,239, 169,39,162,0,16® 
DATA 24,133,231,134,230,134, 229,132 
DATA 228,169,147,76,210,255,0,1 
DATA 2,25,27,69,40,55,86,49 

REM 2.TEIL: 

REM NEUE NMI-ROUTINE 

REM SYS 3072 STARTET TEIL 1+2 
S=®:FOR 1=3128 TO 3210 

READ D:5S=5S+D:POKE I1,D:NEXT 

IF 5=8424 THEN PRINT"2.TEIL=OK!" 


jap #ffd2 DATA 162,69,160,12,120,142,24,3 
DATA 140,25,3,88,96, 216,169, 15 
DATA 141,213,3,169,127,141,13, 221 
DATA 172,13,221,48,40,32,61,246 
DATA 32,225,255,208,35,32,86, 224 
DATA 32,9,225,32,0,192,32,56 
DATA 12,169,8,133,208,162,0,189 
DATA 131,12,157,74,3, 232, 224,8 
DATA 208,245,76,3,64,32,5, 232 
DATA 76,51,255,83,89,83,51,48 


19 1b 
register „byte 8,1,2,25,27 
56 28 
data „byte 69,40,55,86,40 
;nmi-vektor verbiegen 
vector Idx #<nai 
Idy #>nai 
sei 
stx 
sty 


se315 
sa3ıS 


snnai-vektor 


arg DATA 55,53,13 
;neue nmi-routine Listing 2b bedient die Register im VDC. 
nmi cid } 

Ida #50 das Datenregister. 


s@345 
#57 
scdecd 
sdddd 
bami rs232 
jsr sf633 
abfragen 
jsr $ffei 
abfragen 
bne irgrti 
jsr se056 ;restor 

jsr $e189 ;i/o-init 

jsr 50000 ;cinit 

jsr vector 

Ida #308 

sta Sdö;warteschlange im 
puffer 

Idx #808 ;zaehler 
Idakeybuf, x;tastaturpuffer 
sta $034a,x ;fuellen 

inx 
epx 
bne 
40 jmp 
e8 rs232 jsr 


Im Adreßregister ($D600) hat Bit 7 
die Funktion eines Statusbits. 
Wenn das Bit gelöscht ist, kann 
keine Schreib- oder Leseopera- 
tion stattfinden. Wird in ein Regi- 
ster geschrieben, so enthalten die 
unteren fünf Bits die Adreß-Num- 
mer des angesprochenen Regi- 
sters. 

Wird das Adreßregister gelesen, 
so wird das Statusbit zurückgege- 
ben, wenn der VDC für die näch- 
ste Operation bereit ist. Bit 6 ist ge- 
löscht, wenn die Lightpen-Regi- 
ster (16,17) ungültige Werte ent- 
halten. Jeder Lesezugriff auf Regi- 
ster 16/17 löscht das Lightpen-Sta- 
tusbit. Bit 5 ist das „Vertikal Blank- 
ing Bit“. Es wird gesetzt, wenn sich 
der Kathodenstrahl im Rücklauf 


‚aktuelle bank 
scia 82 


sta 
Ida 
sta 
Idy 


;dekoder 


;stoptaste 


fillbuf 


#508 

fillbuf 

$40053 ;basic-warmstart 
$e805 


tt irart jmp $ff33 . Ä : $ 
53 33 30 37 35 Listing 2a ist der befindet. Die Bits 0 bis 3 enthalten 
keybuf  .text "sys3075" dokumentierte die Versionsnummer des VDC. 
‚byte $0d ue Eine Zusammenfassung zeigt fol- 

Listings 2b. gende Tabelle: » 
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Bit 7 


Bit6 Bit5 


STATUS LP VBLANK 
RS 


Lesen 
Schreiben 


Es gibt drei Versionen des 8563- 
Chips, die bei der Initialisierung 
verschiedene Werte benötigen. 
Der Unterschied liegt im horizon- 
talen Smooth-Scrolling (Bits 0 bis 3 
im Register 25). Die folgende Ta- 
belle enthält die Kennwerte der 
einzelnen Versionen: 


Version $D600 Register 25 
8563—-R7A 0 $40 (64) 
8563—R8 l $47 (71) 
-8563—R9 l $47 (71) 


Bei der Initialisierung werden die 
Bits 0 bis 2 des Adreßregisters ab- 
gefragt und in das Register 25 der 
passende Wert geschrieben. In 
Grafik-Routinen ist daher die 
VDC-Version zu berücksichtigen. 
Geschieht das nicht, so flimmert 
(je nach Version) der rechte oder 
linke Bildschirmrand. 


Bit hin — Bit her: 
Datenregister als 
Medium 


Das Datenregister $D601 ermög- 
licht den Datenaustausch zwi- 
schen dem VDC und der 8502- 
CPU. Jedes Bit in diesem Register 
ist ein Datenbit. Alle Daten, die 
zwischen der CPU und dem VDC 
ausgetauscht werden, müssen 
über dieses Register gehen. 

Die Übergabe eines Wertes an 
den Controller geschieht folgen- 
dermaßen: In das Adreßregister 
wird die Nummer eines der VDC- 
Register geschrieben. Dann kann 
in das Datenregister entweder ein 
Wert geschrieben oder daraus 
gelesen werden. Vorher wird das 
Statusbit getestet, wenn es gesetzt 
ist, kann der nächste Befehl bear- 
beitet werden. Wichtig ist, daß die 
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Bit4 Bit3 


VERS2 VERS1 VERSO 


1008 
110 
120 
130 
148 
150 
160 
1798 
188 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
3900 


Registernummer des angespro- 
chenen VDC-Registers im X-Regi- 
ster steht, um für das Adreßregi- 
ster verfügbar zu sein. 

Wie Schreib- und Lesezugriffe im 
Betriebssystem gehandhabt wer- 
den, zeigt der kommentierte Aus- 
zug (Anwendungen im Basic kann 
man in Listing 3 und 4 sehen): 


Bit 2 Bit 1 Bit 0 


R2 Rl RO 


REM DEMO-VERTIKALES "'SMOOTH SCROLLING’ 


TRAP320 

PRINTCHR$ (147 )CHR$(27)"M":REM NO SCRÜLL 
W=DEC("CDCC"):REM VDC-ZUGRIFF/SCHREIBEN 
R=DEC("CDDA") :REM VDC-ZUGRIFF/LESEN 


REM TEXT AUSGEBEN 
S$="SMOOTH SCROLLING TEST" 
FORI=0T024:PRINT S$:NEXT 


REM AUF 24 ZEILEN BEGRENZEN 
SYS W,24,6 


REM 1 ZEILE VERTIKAL SCROLLEN 

FOR1=0T07 

SYS R,,24:RREG V:V=V AND24® OR 1:5YS W,V,24 | 
NEXT | 
GOT0269 | 
REM STANDARDWERTE DER REGISTER 

SYS W,102,2:SYS W,25,6:5YS W,32,24 

SYS W,71,25:PRINT CHR$(27)"L":SCNCLR 


HÖRIZUNTALES SCROLLING MIT DEM VDC-8563 
(LAUFSCHRIFT) 


TRAP298:W=DECL"CDCC"):REM VDC/SCHREIBEN 
A$="HORIZONTALES SCROLLING NIT DEM VDC-8563" 
PRINT"TDEMO-TEXT LAUTET: ";A$ 

PRINT"@BITTE NEUEN TEXT EINGEBEN ODER "; 
PRINT"ZRETURNM DRUECKENM": INPUT At:L=LEN(A$) 


REM VDC-REGISTER ZUM SCROLLEN PROGRAMMIEREN 
PRINT CHRS(147)CHR$(27)"M":REM NO SCROLL 
PRINT As:REM TEXT AUSGEBEN 

SYS W,5,6:REM BILDSCHIRM = 5 ZEILEN 

SYS W,L,27:REM L= SCROLL-OFFSET 


REM TEXT HORIZONTAL SCROLLEN 
FORI=0T0(79+L) 

FORT=0T0100:NEXT:REM VERZOEGERUNGSSCHLEIFE 
SYS W,1,13:NEXT:REM 1 ZEICHEN SCROLLEN 
GOT0230 


REM STANDARDWERTE DER VDC-REGISTER 
SYS W,0,13:5Y5 W,0,27:5YS W,25,6:SYS W, 71,25 
PRINT CHR$(147)CHR$ (27)"L":END 


Listing 4, um Bildschirminhalte horizontal zu verschieben. 


‚Ein Byte an den VDC übergeben: 
‚(das Byte muß im Akku stehen) 
cdca 

cdca a2 lf ldx #$If 


cdcc 

cdcc Be 00 d6 stx $d600 
cdcf 2c 00 d6 bit $d600 
cdd2 10 fb bpl $cdcf 
cdd4 8d 01 d6 sta $d601 
cdd7 60 rts 


cdd3 

cedd8 2 If ldx #$lf 
‚Daten vom VDC lesen 

cdda 

cdda 8e 00 d6 stx $d600 
cddd 2c 00 d6 bit $d600 
cde0 10 fb bpl $cddd 
cde2 da 01 d6 Ida $d601 
cde5 60 rts 

‚(das Ergebnis steht im Akku) 


‚Akku in ein VDC-Register schreiben 
‚(die Registernummer muß im X-Register stehen) 


‚Ein Byte vom VDC an die CPU übergeben: 
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Einsprungadresse 
‚internes Datenreg. (31) 


Einsprungadresse 
Adreßregister 
Statusbit testen 
Warten bis gesetzt 
Datenregister 


Einsprungadresse 
internes Datenregister. (3]) 


Einsprungadresse 
Adreßregister 
Statusbit-VDC testen 
Warten bis gesetzt 
Wert lesen 


Die folgende Aufstellung bringt 
die Einsprungadressen weiterer 
VDC-Routinen des Betriebssy- 
stems: 
$cd2c 


$cd57 
$cabf 
$cAg 
$cde6 


ESC „X“, umschalten 40/ 
80 Zeichen 

Cursorposition an VDC 
Cursor einschalten 
Cursor ausschalten 
Cursoradresse im Bild- 
speicher übergeben 
QCursoradresse im Farb- 
speicher übergeben 
Zeichensatz aus dem 
ROM an den VDC über- 
geben 

ROM-Routinen können in eigenen 
Maschinenprogrammen als Unter- 
programme verwendet werden: 


l. Lesen eines VDC-Registers: 

- 1.1 Maschinensprache: 

LDX # Registernummer 

JMP $CDDA 

‚das Ergebnis steht im Akku 
Basic: 

SYS DEC („CDDA"),,‚R:RREG 
A 


$cafg 


$ce0c 


1.2 


(Das Ergebnis steht in der Va- 
riablen A) 

2. Schreiben in ein VDC-Regi- 

ster: 

Maschinensprache: 

LDX #Registernummer 

LDA #Wert 

JMP $CDCC 

2.2 Basic: 


WU NU RE TB NEIESEBR LINE 


SYS DEC („CDCC"),W,R 
W...Wert R.. .Registernum- 
mer 


3. Lesen aus dem VDC-RAM: 


LDX #$12 ;‚Update-Reg./ 
High 

LDA #Adresse/High 

JSR $SCDCC 
INX;Update-Reg./Low 

LDA #Adresse/Low 

JSR $SCDCC 

JMP $CDD8 

‚das Ergebnis steht im Akku 


4. Schreiben in das VDC-RAM: 
LDX #$12 ;Update-Reg./High 
LDA # Adresse/High 
JSR $CDCC 
INX;Update-Reg./Low 
LDA #Adresse/Low 
JSR $CDCC 

. JMP $CDCA 
LDA #Code 
‚beim Schreiben in den Bild- 
speicher ist der 
‚Bildschirmcode des Zeichens 
zu übergeben 


Für die beiden letzten Anwendun- 
gen ist Basic in der Regel zu lang- 
sam. Es wurden daher die Basic- 
Befehlsfolgen nicht angegeben. 

Nach jedem Zugriff auf das inter- 
ne Daten-Register (31) wird die in 
den Update-Registern enthaltene 
Adresse automatisch um 1 erhöht. 
Nachdem: das y-Register bei kei- 


ner Zugriffsoperation benötigt 
wird, kann man es als Schleifen- 
zähler verwenden und eine Da- 
tenfolge in das VDC-RAM schrei- 
ben, ohne daß die Adresse bei je- 
dem Schleifendurchgang durch 
das Anwenderprogramm erhöht 
werden muß. Bei der Program- 
mierung des VDC müssen indi- 
rekte Maschinen-Befehle vermie- 
den werden (zum Beispiel: LDA ( ) 
‚Y), weil ihr Ergebnis einen fal- 
schen Bus-Status liefert, der dann 
als gültig weiterverarbeitet wür- 
de. Ferner muß für alle Zugriffe 
der I/O-Bereich eingeblendet 
sein. Willman Problemen mit dem 
Bankswitching aus dem Wege ge- 
hen, muß man möglichst in Bank 
15 bleiben. Das erfordert, daß das 
Programm in Bank 0 unter $4000 
liegt. Wie man sieht, ist die Pro- 
grammierung des VDC nicht so 
einfach wie die des VIC. 

Im C128 ist die Hauptaufgabe des 
VDC die Zeichendarstellung in 25 
Zeilen zu je 80 Zeichen. Für die 
Darstellung der Zeichen sind vor- 
wiegend die Register 9, 22 und 23 
zuständig. 

In Register 8 bestimmen die Bits 0 
und l den Abtastmodus: 


Bitl BitO 

X 0 Non-Interlace-Modus= 
kein Zeilensprung 
Interlace-Sync-Modus= 
Zeilensprung 
Interlace-Sync + Video- 
Modus=Zeilensprung 
doppelter Dichte 


Die Größe des sichtbaren Bildes 
bezeichnet man als Rahmen oder 
Fenster. Beim Kaltstart des C128 
wird die Rahmengröße auf 25 Zei- 
len mit je 80 Spalten eingestellt. 
Bestimmend für die Rahmenei- 
genschaften sind vorwiegend die 
Register 0 bis 7. Der VDC ist da- 
durch wesentlich flexibler als an- 
dere CRT-Controller. 

Um zum Beispiel von 80 auf 40 
Zeichen zu wechseln, müssen le- 
diglich einige Register umpro- 
grammiert werden. Wie Listing 1 
zeigt, kann das Umschalten auf 40 
Zeichen auch in Basic erfolgen. 
Die Sache hat aber einen kleinen 
Schönheitsfehler, denn bei Betäti- 
gung von RUN/STOP+RESTORE 


0 l 
l l 


wird die NMI-Routine aufgerufen $ 
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und der VDC wird mit den Stan- 
dardwerten initialisiert und arbei- 
tet wieder im 80-Zeichen-Format. 

Das Maschinenprogramm 'Der 


VDC im 40-Zeichen-Modus’ 
(Listing 2) ist vielseitiger: 

Mit SYS3075 wird vom 80-Zeichen- 
Modus auf die 40-Zeichen-Darstel- 
lung umgeschaltet. 

Erfolgt die Umschaltung mit 
SYS3072, so bleibt der VDC nach 
Betätigung von RUN/STOP+RE- 
STORE im 40-Zeichen-Modus. Es 
wird nämlich bei diesem Ein- 
sprung der NMI-Vektor verbo- 
gen, wodurch das Programm in 
eine modifizierte NMI-Routine ver- 
zweigt, welche den VDC nicht neu 
initialisiert. 

Wird auf die geänderte NMI-Rou- 
tine kein Wert gelegt, so genügt 
der 1. Teil des Basicladers. Nach 
einem Reset wird zwar wieder in 
den 80-Zeichen-Modus geschaltet, 
das Maschinenprogramm wird je- 
doch dadurch nicht gelöscht. Mit 
SYS3075 kommt man wieder in 
den 40-Zeichen-Modus. 

Nun die Erklärung, warum einige 
Register umprogrammiert werden 
müssen: 

Reg.0 Dieses Register enthält 
die gesamte Anzahl der 
Zeichen inklusive Strahl- 
rücklauf. Der Normalin- 
halt ist 126. Für 40 ange- 
zeigte Zeichen pro Zeile 
muß dieser Wert verrin- 
gert werden. Je nach dem 
verwendeten Monitor 
sind Werte von 69 bis 74 
geeignet. Für den vom 
Autor verwendeten Grün- 
Monitor ergab sich 69 als 
optimalster Wert. 
Normalinhalt ist 80, das ist 
die Anzahl der angezeig- 
ten Zeichen pro Zeile. 
Hier muß natürlich 40 pro- 
grammiert werden. 
Bestimmt die horizontale 
Synchronisationsposition. 


Reg.l 


Reg.2 


Reg.25 


Wird der Inhalt verklei- 
nert, so bewegt sich der 
linke Bildrand nach 
rechts. Im 40-Zeichen-Pro- 
gramm wurde 55 gewählt, 
wodurch der Rahmen in 
der Mitte des Bildschir- 
mes liegt. Das brauchba- 
re Intervall reicht von 50 
bis 63. 

Normalinhalt für 
80-Zeichen: 
%01000111=$47(dez.7]) 
Inhalt für 

40-Zeichen: 

%01010110= $56(dez.86) 


Dieses Register 
hat mehrere 
Funktionen: 
Smooth-Scrol- 
ling-horizontal: 
Nicht scrol- 
len=7, l 
Zeichen scrol- 
len=6 

Ist das Bit ge- 
setzt, so wird 
die interne Cha- 
racter-Clock- 
Periode ver- 
doppelt und da- 
mit wird auf 
doppelte Pixel- 
breite geschal- 
tet. 

Ist dieses Kon- 
trollbit gelöscht, 
so werden die 
Zeichen normal 
dargestellt; ist 
es gesetzt, so 
wird der Semi- 
grafik-Modus 
eingeschaltet, 
bei dem sich 
die Zeichen un- 
tereinander be- 
rühren. 
Attribut-Bit. Ist 
es gesetzt, so 
sind die Attribu- 


Bits 0—3 


Bit 4 


Bit 5 


Bit 6 
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te zugelassen. 
Wenn gelöscht, 
so werden Vor- 
der- und Hinter- 
grundfarbe 
dem Register 26 
entnommen. 

Im Textmodus 
ist es gelöscht. 
Wird es gesetzt, 
so wird in den 
Bit-Map-Modus 
geschaltet. 

Die Anzahl der 
Bytes, welche 
beim Scrolling 
übersprungen 
werden sollen, 
wird durch die- 
ses Register 
festgelegt. Für 
den 40-Zeichen- 
Modus ist daher 
40 erforderlich. 
Im 80-Zeichen- 
Modus wird die- 
ses Register mit 
0 (Null) initiali- 
siert. 

Der VDC beherrscht auch vertika- 
les (Reg.24) und horizontales 
(Reg.25) Scrolling. Einfache 
Demo-Programme zeigen Listing 3 
und 4. 


Listing 3 liefert wenig praktischen 
Nutzen und dient nur zur Demon- 
stration des vertikalen Scrollings. 
Mit Listing 4 dagegen wird eine 
Laufschrift erzeugt, die in ver- 
schiedenen Programmen als Spe- 
zialeffekt verwendet werden 
kann. 


Die Programme sind mit ausführli- 
chen Kommentaren versehen. Da- 
mit erübrigen sich weitere Erklä- 
rungen. In beiden Programmen 
werden zur Programmierung der 
VDC-Register ROM-Routinen ver- 
wendet, wodurch die Program- 
mierung recht einfach wird. 


Ilse Wo ERBE EEE 


Bit 7 


Reg.27 Bit 0—7 
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Anzeigenschluß für die RUN Nr. 7/87 
ist der 13. 5. 1987 


€16 intern 


Sehr geehrte Run-Redaktion! 

Ich (18) bin begeisterter C116- 
Freak aus der DDR. Seit einem 
Jahr arbeite ich mit einem C116 
mit Datasette und 64 KB RAM. In 
letzter Zeit beschäftige ich mich 
intensiv mit der Ässembler-Pro- 
grammierung meines Rechners. 
Dabei hat mir das Maschinen- 
sprachbuch von Data Becker 
schon etwas weitergeholfen. 
Trotzdem habe ich noch einige 
Probleme, die ich mit der mir zur 
Verfügung stehenden Literatur 
nicht klären konnte. Niemand 
kann mir weiterhelfen, da es sich 
um spezielle Sachen handelt. Zu- 
fällig bekam ich eine „RUN“ ge- 
schenkt, und bin beeindruckt von 
der Informationsfülle und Qualität 
Ihrer Zeitschrift. Nun wende ich 
mich in letzter Hoffnung auf Um- 
wegen an Sie, ob Sie mir vielleicht 
helfen könnten! Hier meine Fra- 
gen: 


l. Nirgendwo konnte ich die Be- 
deutung der lI/O-Adressen ab 
$FDO00 finden, sie interessieren 
mich aber sehr. (Die TED-Register 
und Memory-Map bis BASIC-Ram 
habe ich schon.) 


2. Bei 64K gibt es ja durch das 
Banking Schwierigkeiten bei Auf- 
rufen von ROM-Routinen aus dem 
oberen RAM. Dafür gibt es die 
Routinen LONG-JUMP und LONG 
FETCH, jedoch kenne ich die Ein- 
sprungsadressen nicht. 


3. Ist es möglich den Tape-Header 
so zu manipulieren, daß ein Auto- 
start erfolgt, wenn ja, wie? 


4. Wie kann man erreichen, daß 
bei Betätigung des Reset-Tasters 
in ein bestimmtes Anwenderpro- 
gramm verzweigt wird? 

Ich würde mich freuen, wenn Sie 
wenigstens eine meiner Fragen 
kurz aber exakt beantworten 
könnten. Schon im voraus danke 
ich Ihnen für alle Arbeit und Mü- 
hen. 

Mit freundlichen Grüßen 

Michael Taeschner 


ad |): 

Dieser Bereich ist nirgends doku- 
mentiert. Es kann daher nur frag- 
mentarisch geantwortet werden: 


VURWNNETROMIE EHRE SALES 


Adresse 
FDO0-FF48 


Inhalt 

W/O-Adressen. Darin sind auch die TED-Register von 
FFOO-FF3F enthalten. Dieser Adreßbereich ist der Ar- 
beitsbereich für den 6529-Chip und 6551-Chip. Diese be- 
dienen beim Plus/4 User-Port und RS-232-Schnittstelle. 
Nachdem die ROMs von C16/116 und Plus/4 identisch 
sind, sind diese Routinen auch im C16/116 vorhanden, 
werden aber vom Betriebssystem nicht angesprochen. 
RS-232-Bereich (Register und Flags): 

Übergabe an RS-232 

RS-232 Kopie Status 

6551 Command Register 

6551 Control Register 

Port des 6529: 

Im Plus/4 wird ein Single Port Chip der Type 6529 ver- 
wendet. D.h.: Jede Leitung kann als Aus- und Eingang 
gleichzeitig verwendet werden. Jede binäre '0' schaltet 
entsprechenden Ausgang auf 0 Volt; eine '1’ legt ihn auf 
5 Volt. 

Basisadresse für Modulzugriff (Register und Flags) 
IEC-Bus (Register und Flags): 

Basisadresse IEC-Routinen 

IEC Port #8:Daten 

IEC Port #8: Output 


Mögliche ROM-Bank Konfigurationen beim Plus/4 
und C16/116 mit 64K- 


Bank 


oO AQOLD-O 


eingeb. Software/low 
Modul/low 
reserviert/low 

Basic 

eingeb. Software/low 
Modul/low 
reserviert/low 


Konfiguration 
Basic 
eingeb. Software/low 


Kernal 

Kernal 

Kernal 

Kernal 

eingeb. Software/high 
eingeb. Software/high 
eingeb. Software/high 
eingeb. Software/high 
Modul/high 
Modul/high 
Modul/high 
Modul/high 
reserviert/high 
reserviert/high 
reserviert/high 
reserviert/high 


+ 
+ 
+ 
- 
- 
+ 
r 
+ 
% 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


In jeder dieser Konfigurationen 
sind die Banking-Routinen und die 
TED-Register immer eingeblen- 
det. 


Der Adreßbereich $FC00-$FCFF 

enthält folgende Banking-Routi- 

nen: 

$FCFl Sprung zur IRQ-Routine 
auf dem Modul 

$FCF7 Sprung zur Long-Fetch- 
Routine 

$FCFA Sprung zur Long-Jump- 
Routine 


$SFCFD Sprung zur Long-IRQ- 

s Routine 
Übergabeparameter Long-Fetch- 
Routine: 

Basisadresse des Bytes $BE/$BF 


Adresse-Offset Y-Reg. 
Ziel-Bank X-Reg. 
Aktuelle Bank Akku 


Das geholte Byte steht danach im 
Akku. 


Übergabeparameter Long-Jump- 


Routine: 
Sprungadresse $0SF0/$05F1 > 
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Übergabe Akku $0SF2 
Übergabe X-Reg.  $05F3 
Übergabe Status $05F4 
Ziel-Bank X-Reg. 
Aktuelle Bank Akku 


Die Umschaltung zwischen RAM 
und ROM erfolgt durch den TED 
mittels eines Dummy-Schreibbe- 
fehls in die Register $FF3E (ROM) 
und $FF3F (RAM). 


ad 3): 

Der Kassettenpuffer reicht von 
818-1010. Für den Header werden 
maximal 21 Bytes benötigt. So 
bleibt also ausreichend Platz, hier 
ein kleines Maschinenprogramm 
anzuhängen, welches den Auto- 
start eines Basicprogrammes er- 
zeugt. Die genaue Erklärung ist 
sehr umfangreich und daher im 
Rahmen dieser Antwort nicht mög- 
lich. Anmerkung der Autoren: 
Diese Anfrage hat uns dazu ange- 
regt, einen „Bootmaker“ für den 
C16, Plus/4 zu schreiben. Für Dis- 
kette war das kein Problem. Für 
Band derzeit nicht möglich, weil 
wir keine Datasette für den l6er 
besitzen. 

ad 4): 

Indem man Vektoren so verbiegt, 
daß sie auf ein eigenes Maschi- 
nenprogramm zeigen, welches 
die Steuerung übernimmt. Hier 
gibt es mehrere Möglichkeiten, 
deren Beschreibung und Erklä- 
rung für die Beantwortung zu um- 
fangreich ist. 


Wenn Tasten 
streiken 


Ich habe einen C64 und ein Pro- 
blem: Seit einiger Zeit funktioniert 
meine Restore-Taste nicht mehr. 
Können Sie mir sagen, wo der 
Fehler liegt, und wie ich ihn behe- 
ben kann? 

obere 

Hier gibt es mehrere Möglichkei- 
ten: 

I) Fehler: Die Tastatur ist ver- 
staubt. Abhilfe: Mit einem Staub- 
sauger gut absaugen oder (wenn 
verfügbar) mit Druckluft durch- 
blasen. Anschließend die Re- 
store-Taste einige Male rasch hin- 
tereinander härter als gewöhnlich 
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betätigen, daß heißt einfach drauf- 
klopfen wie bei einer mechani- 
schen Schreibmaschine. Wenn 
das nicht nutzt, muß die Tastatur 
vorsichtig zerlegt und mit Alkohol 
gereinigt werden. 

2) Wenn alle Liebesmüh verge- 
bens war, ist das mit Sicherheit ein 
Hardwarefehler. Es kann .defekt 
sein: 

— Der Timer-IC NES56 (im Schalt- 
bild die Position U20) 

— Seltener der Kondensator für 
die Zeitkonstante (im Schaltbild 
die Position C38) 

Eine solche Reparatur sollte nur 
durch einen Fachmann erfolgen. 


Sprites im 
Speicher 


Mein Schreiben hat verschiedene 
Gründe. Zunächst habe ich pro- 
grammtechnische Probleme, von 
denen ich hoffe, daß Sie mir wei- 
terhelfen. Ich bin Fortgeschritte- 
ner, dennoch habe ich folgendes 
Problem: Die Sprite-Blöcke 11, 13, 
14 und 15 (also vier Sprites) genü- 
gen mir nicht mehr, wenn ich 
mehr als vier Sprites program- 
mieren möchte. Ich habe schon 
Block 12 probiert, aber da stürzt 
mein Computer ab. Block 16ff. 
ist ja für den Bildschirm reserviert. 
Wo kann ich meine Sprite-Daten 
noch ablegen und wie finde ich 
den dazugehörigen Block? Ein an- 
deres Problem: Mein C 64 meldet 
„Syntax Error" in Text-Datazeilen. 
Aber ich habe keinen mir offen- 
sichtlichen Fehler gefunden und 
habe auch richtig dimensioniert. 
Woran kann das liegen? 

Andreas Kolboom 

Am Wasserturm 42 

8501 Rosstal 

Betrifft Sprites beim C64: 

Die vom Leser so benannten 
Sprite-Blöcke sind keine Blöcke, 
sondern Sprite-Pointer, die auf die 
Definition für das dazugehörige 
Sprite zeigen. Sie werden norma- 
lerweise in den letzten 8 KBytes 
des Bildspeichers (2040-2047) ab- 
gelegt und können einen Wert 
von 0 bis 255 annehmen. Das 
heißt, daß der Pointer auf jede 
Adresse im 16 K-Bereich zeigen 
kann, der für den VIC-Il-Chip er- 
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reichbar ist (256*64=16K). Wenn 
der Sprite-Pointer #0 in Adresse 
2040 den Wert 13 enthält, so be- 
deutet das, daß Sprite #0 bei 
Adresse 13*64=832 beginnt. Das 
ist im Kassettenpuffer. Wählt man, 
wie der Leser, den Wert 12, so 
zeigt der Pointer genau auf den 
Anfang der Tabelle der Basic- 
Vektoren und bringt natürlich al- 
les durcheinander. 

Kommt man mit 4 Sprites nicht aus, 
so kann man einen Bereich im Ba- 
sic-Speicher wählen. Im Program- 
mierhandbuch wird der Bereich 
ab 12288 empfohlen. Die dazuge- 
hörigen Werte der Pointer sind 
dann: 192, 193, 194, 198, 196, 197, 
198, 199. Hier muß allerdings dar- 
auf geachtet werden, daß keine 
Kollisionen mit dem Basic-Pro- 
gramm auftreten. Man setzt daher 
in solchen Fällen das Ende des 
Basic-Speichers herunter, indem 
man in den Zeiger MEMSIZ (Adr. 
55/56) die entsprechenden Werte 
poket. 

Betrifft: Syntax Error in Text-Data- 
zeilen 

Die Fehlermeldung SYNTAX ER- 
ROR muß auch eine Zeilennum- 
mer enthalten, an Hand derer man 
die Fehlerstelle eingrenzen kann. 
Ohne Listing des Programms kann 
man keine genauere Diagnose 
stellen. 


Ich bin seit einigen Wochen stol- 
zer Besitzer eines C 128 plus Flop- 
py 1571 und Commodore Monitor 
1901. Ferner besitze ich einen Sei- 
kosha-Drucker SP-1000 VC sowie 
einen Typenraddrucker Brother 
CE-500. Also, wie Ihr seht, ist mei- 
ne Anlage komplett. Was mir jetzt 
fehlt, ist die Ahnung vom Compu- 
tern, das heißt BASIC beherrsche 
ich ganz gut. Ich würde gerne 
mehr über Assemblerprogram- 
mierung wissen, aber ich habe da 
einige Probleme. 

Nun, was ich gerne wissen möch- 
te, ist folgendes: In einigen Bü- 
chern lese ich immer etwas über 
Kernalroutinen. Was das ist, weiß 


ich, nur was mich stutzig macht ist, ° 
daß diese Routinen, wie so viele, 


ab einer bestimmten Adresse im 
Speicher liegen. Ein Beispiel: 


Name : CLRWIN 

Zweck: Löschen des Fensters 
(Bildschirms) 

Adresse: $ C142 (49474) 

Alleine die Adresse kann schon 
nicht stimmen! Denn in diesem Be- 
reich liegen normalerweise Basic- 
programme. ($1C00)! Das heißt, 
wenn ich mit dem Monitor des 
128er diesen Speicherbereich mir 
ansehe, erkenne ich ein darinlie- 
gendes Basicprogramm. Gebe ich 
aber als Anfangsadresse im Moni- 
tor $ FC142ein, dann erscheint et- 
was Sinnvolles auf dem Bild- 
schirm. (Beim . Disassemblieren) 
Könnt Ihr mir dieses Phänomen er- 
klären? Druckfehler können es 
nicht sein, denn es gibt weitere 
Routinen mit so niedriger Adres- 
se. 


Ernst Stelljes 
Stelliesdamm 3 
2742 Gnarrenburg 


Betrifft Kernal: 

Bei allen Commodore-Computern 
haben Standard-Routinen des Be- 
triebssystems gleiche Einsprung- 
adressen. Diese sind über die so- 
genannte Kernal-Sprungtabelle 
ab $FF81 abrufbar. So ist es relativ 
einfach, Maschinenprogramme, 
welche Routinen des Betriebssy- 
stems verwenden, an jeden 8-Bit- 
Commodore-Computer anzupas- 
sen. Kernal (im korrektem Eng- 
lisch: kernel) heißt ja auf deutsch 
„kern“, Commodore will mit die- 
ser Bezeichnung offenbar sagen, 
daß der „Kern“ mit allen Model- 
len kompatibel ist. 

Betrifft: RAM/ROM-Umschaltung 
Der Prozessor des C128 kann nur 
64K adressieren. Um auf 128K 
RAM und ROMSs für Interpreter 
und Betriebssystem zugreifen zu 
können, bedient man sich des 
Bankswitchings. Ein eigener Chip 
(die MMU) sorgt dafür, daß der 
Prozessor immer den gerade be- 
nötigten RAM- und ROM-Bereich 
„sieht“. Beim C128 ist das RAM in 
Bank 0 ab $4000 von ROM überla- 
gert. Das bedeutet, daß alle ROM- 
Adressen adreßgleich mit RAM- 
Adressen sind. Am leichtesten ist 
das für einen Einsteiger mit dem 
Monitor überblickbar: Wird der 
vierstelligen HEX-Adresse eine 0 
(Null) vorangestellt, so erfolgt der 
Zugriff auf das RAM in Bank 0. 


WU NERWER SORIE NONE TEFBULNEIEERIN 


Nimmt man als Präfix ein F, so er- 
folgt der Zugriff bei allen Adres- 
sen, die auch mit den ROMs kor- 
respondieren, auf ein ROM. Wird 
eine 1 vorgestellt, so erfolgt der 
Zugriff auf das RAM in Bank 1. 
Wie das alles genau funktioniert, 
darüber sind bereits einige dicke 
Bücher geschrieben worden (z. B. 
„Commodore 128 Intern“, erschie- 
nen bei Data Becker). 


Sprites auf dem 


Sehr geehrte RUN-Redaktion! 
Meine Fragen betreffen haupt- 
sächlich den VIC des C-64. 

l) Wenn ich die Sprites 0—7 pro- 
grammiert habe, wie bekomme 
ich sie dann mehrfach auf den 
Bildschirm? Und wie kann ich sie 
unabhängig voneinander bewe- 
gen? 

2) Wie kann ich Multicolor setzen? 
Und wie „coloriere* ich die 
Sprites unabhängig voneinander? 
3) In welcher Adresse und wie 
stelle ich eine Kollision fest? 

4) Kann ich auch ohne großen Auf- 
wand ein vorgegebenes Zeichen 
zum Beispiel „*“ wie ein Sprite 
bewegen? 

Vielen Dank im voraus. 

Mit freundlichen Grüßen 

Alexander 
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ad la): 

Das Steuerregister in Adresse 
53269 ist das Sprite-Aktivierungs- 
register. Um ein Sprite zu aktivie- 
ren, muß das entsprechende Bit 
gesetzt werden POKES53269,PEEK 
(53259) OR (2 N) N ist die Nummer 
des Sprites. Mit dieser Methode 
bleibt der übrige Inhalt des Regi- 
sters unverändert. 

Wie man sieht, erfolgt das nach 
der binären Wertigkeit 

Spnte 7 65432 10 
Wert 128643216 84 2 1 
Z. B. werden Sprites 4 und 6 so ein- 
geschaltet: POKES3269, 16+64 
Nach diesem Algorithmus schaltet 
der Wert 355 alle Sprites ein. 

Ein einzelnes Sprite wird mit 
POKES3269,PEEK (53269) AND 
(255-2 N) 

ausgeschaltet. 


Tips und Tricks 


Wenn man den Wert 0 in das Regi- 
ster poket, werden alle Sprites 
ausgeschaltet. 

ad Ib): 

Im Anhang des Handbuches ist 
eine Tabelle der Sprite-Register 
abgedruckt. Hieraus ersieht man, 
daß die Sprite-Position durch den 
Inhalt der ersten 17 Register be- 
stimmt wird. Bewegt werden 
Sprites, indem die gewünschte x/ 
y-Position in die Register ge- 
schrieben wird. Für kontinuierli- 
che Bewegungen macht man das 
in einer FOR/NEXT-Schleife. 

ad 2a): 

Den Mehrfarbenmodus für ein 
Sprite setzt man mit g 
POKES3276,PEEK ($3276)OR(@2 N) 
wobei wieder N die Spritenummer 
(0-7) angibt. 

Der Mehrfarbenmodus verringert 
die horizontale Auflösung auf die 
Hälfte, weil jedes Bildelement jetzt 
aus einem Bitpaar dargestellt 
wird. Die Tabelle zeigt die Bit- 
paar-Kombinationen, die zum Ein- 
schalten der vier Farben benötigt 
werden: 

Bitpsar Entnimmt die Farbe aus 
00 


Bildschirmfarbe 
(transparent) 
0] Sprite-Mehrfarben- 
register #0 (53285) 
10 Sprite-Farbenregister 
11 Sprite-Mehrfarben- 
register #1 (53286) 
ad 2b): 


Jedes Sprite kann einzeln einge- 
färbt werden. Dazu gibt es die 
Sprite-Farbregister (siehe Tabelle 
im Handbuch). 

ad 3): 
Sprite/Sprite-Kollision: 
#30 (53278) 
Sprite/Hintergrund-Kollision: Re- 
gister #31 (53279) 

ad 4): 

Im Basic 2.0 ist das mit folgendem 
Trick möglich: 
POKE211,S:POKE214,2:SYS 
65520:PRINT, %*“ 

Wobei S die Spalte und Z die Zeile 
ist, in welche das Zeichen ge- 
druckt werden soll. Wird diese 
Befehlsfolge in eine FOR/NEXT- 
Schleife eingebettet, so wird das 
Zeichen über den Bildschirm be- 
wegt. Die Wahl des Zeichens ist 
selbstverständlich frei und der 
Aufwand gering. 
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Register 


Praxis Listing 


Der 64er geht 


System: C64/ Laufwerk 
Typ: Basic-Erweiterung 
Sprache: Basic 


Computer jüngerer Generationen 
arbeiten mit Maus- oder Fenster- 
technologie. Zum Beispiel sind im 
Commodore 128-Basic Window- 
Befehle bereits implementiert. 
„W-Basic" zeigt, daß der 64er 
noch lange nicht zum alten Eisen 
gehört und verschafft dem sparta- 
nischen Basic V2 zusätzlich Befeh- 
le zum Steuern und Definieren von 
Fenstern und Eingabemasken. 16 
zusätzliche Anweisungen verar- 
beitet der Computer, nachdem 
man „W-Basic" mit RUN gestartet 
hat. Zu beachten ist, daß vor je- 
dem der neuen Befehle ein „!" ste- 
hen muß: 

Ipon : Initialisiert eine IRQ-Routi- 
ne, die Joysticks abfragt, Eingabe- 
pfeile steuert und die Menue-Zei- 
le anzeigt. X- und Y-Positionen des 
Pfeils stehen in Adressen 53236 
und 53237. 


DpSucH als Maus 


Ipoff: IRQ-Routine abschalten. 
Imon Menue-Zeile anzeigen, 
wenn IRQ initialisiert ist. 

!moff: Menue-Zeile ausblenden. 
Isdef: Menue-Zeile definieren: 
Beispiel !sdef, disk sort list" = de- 
finiert 3 Menue-Punkte mit den 
Namen disk, sort und list. Klickt 
man nun einen der Punkte mit 
dem Pfeil an, wird das entspre- 
chende Menue angezeigt. Maxi- 
mal sind 10 Menue-Punkte defi- 
nierbar. Die definierte Zeile muß 
unter 40 Zeichen lang sein. 

Imdef menuenr., „daten]“, „da- 
ten2“ definiert ein Menue. Bei- 
spiel Imdef0,,directory",„load da- 
ta“,„ende" definiert Menue Nr. 0 
mit Inhalt directory,load data und 
ende. Dieser Text wird nach dem 
Anklicken des Menue-Punktes an- 
gezeigt. Klickt man innerhalb des 
Menues einen Menue-Punkt an, so 
steht dessen Nummer in Adresse 
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VERNSUEESOME COM LERNV ORTEN 


Fensterin 


Windows auf dem C64 
erzeugt „W-Basic“, 
eine Basic-Erweiterung 
mit 16 neuen Befehlen. 
Zusammen mit einem 


verbesserten INPUT- 
Befehl erstellt man 


Programm-Masken in 
Bruchteilen der 
gewohnten Zeit. 


53239. Die Nummer des entspre- 
chenden Menuss steht in Adresse 
53238. Wurde ein Menue doppelt 
angeklickt, steht in Adresse 53238 
eine 0 ! Beim Menue-Definieren ist 
darauf zu achten, daß 12 Einträge 
zu je 10 Zeichen das Maximum ist. 
Außerdem darf die Menue-Num- 
mer nicht größer als 9 sein! Vor 


Abfragen der Menue- und Punkte- 


Nummer sind alle Zeiger mit „!i" 
zurückzusetzen. 

!pcolor farbe: Farbe des Pfeils 
Imcolor farbel,farbe2: 

Farben der Menues und Menue- 
Zeilen. 

color rf,hf: Rahmen- und Hinter- 
grundfarbe. 


Print formatiert 
ERKISIS BER 


!won: Setzt nach Run-Stop/Restore 
die Zeiger der Window-Routine 
neu. 

!wdef windownr, startspalte, end- 
spalte, startzeile, endzeile 
Definiertt Wondows. Beispiel 
!wdef1,1,10,1,10 Window Nr. 1] 
geht von Spalte 1/ Zeile 1 bis Spal- 
te 10/ Zeile 10. Die Windownum- 
mer muß zwischen 1 und 7 liegen. 
!wınr windownr : Blendet Window 
NR ein und leitet alle weiteren 
Ausgaben darauf um 

!woff windownr : Schaltet Window 
NR ab und leitet weitere Ausga- 
ben auf das Window mit der höch- 
sten Definitionsnummer um. 

print spalte,zeile,„text“: Forma- 


tiert Print-Ausgaben. Zeilen- und 
Spaltenwerte müssen in den Gren- 
zen des gerade aktiven Windows 
liegen. 

!input spalte,zeile,länge, „überga- 
be", variable 

Modifizierte INPUT-Routine 
!input1,1,10,.0123456789',a$ er- 
wartet in Zeilel, Spalte 1 eine Ein- 
gabe von 10 Zeichen Länge. An- 
genommen werden alle in „Über- 
gabe" definierte Zeichen. Die Po- 
sitionierung erfolgt? wie beim 
Iprint-Befehl. 

old : Rettet durch NEW gelöschte 
Programme. 

'kill: Schaltet Window-Basic kom- 
plett ab. Nach RESET oder !kill 
startet man Window-Basic mit sys 
49152. Ab $CB00-—$CE00 liegen 7 
der 10 Menues. Die anderen 3 lie- 
gen ab $9E94. Der Bereich ab 
$CEO00 ist als Zwischenspeicher 
für Farbinformationen, Windows, 
Menues und Menue-Zeilen. Die 
Windows sind im Bereich $E000 
unter dem ROM abgespeichert. 


Nur mit orDY 


Farbinformationen der Windows 
liegen bei $A000. Da „W-Basic" 
einige Zeropage-Ädressen und 
den Kassettenpuffer nutzt, gibt es 
Probleme bei Datasettennutzung. 
Das veröffentlichte Listing ist als 
kombinierter Hex-Dump-Basicla- 
der abgedruckt. Wie man mit die- 
ser Art Listing umgeht, steht auf 
Seite 98. Wird das Programm als 
Basic-Lader eingegeben, so muß 
der Lader vor dem Start abgespei- 
chert werden. Nach RUN werden 
dann die Daten in den Speicher 
gepoket. Das fertige Maschinen- 
programm speichert man mit 
POKE 43, 1:POKE 44, 8 

POKE 45, 34: POKE 46, 19 

SAVE „name",8 

auf Diskette ab. Wird es als Hex- 
dump eingegeben, so wird der 
Checker benutzt. Als Startadresse 
ist 0800 einzugeben. 


(Stefan Keilholz)EEEEEENEREEEEEEE 


8811 
8819 
0821 
0829 
0831 
0839 
0841 
0849 
0851 
0859 
0861 
0869 
0871 
0879 
2881 
0889 
0831 
8839 
0Bal 
0Ba9 


88b1. 


8Bb3 
88c1 
88c3 
08d1 
0849 
®8el 
0883 
oBf1 
oBF9 
0991 
0903 
0311 
-8919 
0321 
0929 
0331 
0339 
0941 
03493 
0951 
0959 
03961 
0969 
0971 
0379 
0381 
0989 
039391 
0399 
29al 
0929 
03b1 
09b9 
09c1 
89c9 
09d1 
0949 
09ei 
09e3 
ogf1 
og9F3 
0a01 
Ba089 
Ball 
Ba19 
Ba21 
Ba29 
0a31 
0839 
Ba41 
Ba49 
0a51 
0359 
Oa61 
0a69 


WENN OMECONFILERWOREILE 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


d data 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


18,08,c2,07,9e, 32,30, 37, 
34,20,57,49,4e,44,4f,57, 
ab,42,41,53,49,43,00,00, 
00,29,00,85,fd,a9,c0,8B5S, 
fe,a9,40,85,fb,39,08,85, 
fc,a2,0d,a8,00,b1,fb,31, 
£fd,c8,d8,f9,e6,fc,e6,fe, 
ca,d®,f®,4c,800,c0,00,a9, 
oFf,8d,20,d0,a9,0b,8d,21, 
d®,39,37,a8,c1,20,1e,ab, 
20,eb,c3,20,30,c6,a9,00, 
8d,f®,cf,8d,f3,cf,a2,Ob, 
Sd,ed,cf,ca,18d,fa,eB,8e, 
Se,ce,8e,ad,ce,a9,27,8d, 
9f,ce,a9,18,8d,al,ce,a9, 
01,8d,f2,cf,a2,79,9d,00, 
ce,ca,1®,fa,ed,8e,fi,cf, 
20,8Be,c6,a9,90,85,37,39, 
9e,85,38,20,44,a6,78B,a9, 
66,84,08,03,89,c0,8d,09, 
03,58,4c,74,34,20,73,00, 
c3,21,f0,06,28,79,00,4c, 
e7,a7,a5,7a,8d,c0,02,a5, 
7b,8d,c1,02,a2,ff,a®,fe, 
a9,20,85,fb,c8,c8,ad,c®, 
02,85,7a,ad,c1,02,85,7b, 
e8,bd,ca,c®,f0,30,c9,2e,- 
£f®0,13,85,fa,a5,fb,d®,Ffo, 
20,73,08,c5,Fa,f0,e9,a9, 
01,85,fb,d®,e3,a5,Ffb,d®, 
cf,b9,11,c1,8d,c2,c®,b9, 
12,c1,8d,c3,c0,298,73,00, 
20,20,00,4c,ae,a7,4c,08, 
af,85,2e,99,2e,43,4f,4c, 
b®,2e,50,43,4f,4c,b®,2e, 
4d,43,4f,4c,b®,28,49,2e, 
4d,S1,2e,4d,4f,46,46,2e, 
58,31,28,50,4f,46,46,2e, 
53,96, 2e,4d,96,2e,57,36, 
Be,57,4f,46,45,2e,57,4e, 
S2,28,4b,49,4c,4c,2e,4f, 
4c,44,2e,57,91,2e,20,00, 
a2,c9,bd,ca,0d,c6,03,c6, 
1a,c6,38,c6,F7,c5,fd,c5, 
b3,c1,e2,c5,c6,c4,40,c5, 
26,c8,3d,c9,06,c9,85,c1, 
9d,c1,8e,c6,080,00,93,05, 
11,20,20,20,20,20,2a,2a, 
Ba,2a,20,20,57,49,4e,44, 
4F,57,20,42,41,53,49,43, 
20,56,31,28,30,20,20,2a, 
Da,2a,2a,0d,11,20,20,57, 
52,49,54,54,45,4e, 20,49, 
4e,20,31,39,38,36,290,42, 
59,20,53,54,45,50,48,41, 
4e,20,4b,45,49,40,48,4f, 
4c,58,11,00,78,a9,e4,8d, 
08,03,89,a7,8d4,09,03,a9, 
ca,8d,26,03,a9,£1,8d,27, 
03,4c,e2,c5,a9,21,8d,02, 
08,20,33,85,35,23,85,2e, 
ae,0d,03,e8,e8,86,2d,4c, 
63,86,a2,41,39,00,9d,40, 
03,ca,18,fa,8d,fb,cf,8d, 
fa,cf,a2,15,bd,39,c6,3d, 
40,03,ca,10,f7,ad,17,d®, 
29,7f,84,17,d0,ad,1b,dO, 
29,7F,8d,1b,d®,ad,1d,d®, 
29,7Ff,8d,1d,d®,ad,15,d0, 
03,80,8d4,15,d®0,2d,10,d® 
29,7F,8d,10,d0,78,a9,18, 
8d,14,03,a9,c2,8d,15,03, 
a9,0d,8d,Ff,07,a9,20,8d, 
2e,d®,a9,64,8d,0e,d®,8d, 
oFf,da,8d,fd,cf,58,60,78, 
ad,828,dc,68,90,59,6a,3®, 
68,63,30,4f,6a,90,4e,6a, 
90,47,ad,de,d®,4a,4a,4a, 


ae,10,d0,10,03,18,69,20, 
38,89,03,8d,f4,cf,ad,Oof, 
d®,38,e9,32,4a,4a,4a,Bd, 
fS,cf,ad,dd,dc,ad,fb,cf, 
d®,49,ad,f3,cf,f9,16,ad, 
fd,cf,f®,11,a2,27,bd,9®0, 
cf,9d,00,04,ad,F2,cf,3d, 
02,d8,ca,180,F1,58,4c,31, 
ea,90,74,90,53,90,32,ae, 
of,d®,e80,33,98,ac,ca,ca, 
Be,0f,d®,20,7e,c4,4c,2b, 
c2,ae,df,d®,ed,f5,b®,9a, 
eB,e8,8e,0f,d®,20,7e,c4, 
4c,2b,c2,a2,0a,a0,00,ea, 
88,d0,fc,ca,d®,f9,4c,18, 
c2,ae,de,d®d,ad,190,d0,e8, 
e8,d0,07,09,80,8d,10,d®, 
88,28,c9,88,90,04,e0,54, 
b®,22,Be,Be,d®,4c,2b,c2, 
ae,de,d®,ad,18,d®,ca,ca, 
d®,07,29,7F,8d,10,d®,ca, 
ca,c9,890,b9,04,e0,17,90, 
03,Be,de,d®,4c,2b,c2,ad, 
fa,cf,f®,0a,8d,f7,cf,ad, 
008,20,18,c4,d0,0Ff,ad,fS, 
cf,d®,e9,ad,f®,cf,f®,e4, 
ad,f3,cf,f®,df,ae,4f,c6, 
a8,80,b9,51,c6,cd,f4,cf, 
90,02,b9,50,c6,cd,f4,cf, 
f®,02,90,08,c8,c8,ca,d®, 
e9,4c,2b,c2,ad,fd,cf,d®, 
15,cc,fc,cf,d®,f3,98,4a, 
B8d,f6,cf,ad,f2,cf,48,a9, 
81,8d,fd,cf,d®,11,98B,4a, 
aa,bd,ed,cf,f®,db,a9,00, 
8d,Ffd,cf,ad,fi,cf,48,8c, 
fc,cf,b93,51,c6,38,f9,590, 
c6,aa,18,b9,50,c6,69,00, 
8d,66,c3,68,9d,20,dB,ca, 
10,fa,20,71,c3,4c,2b,c2, 
ad,66,c3,85,fb,85,9e,a9, 
04,85,Ffc,89,d8,85,9F,20, 
85,c4,b9,7a,c6,85,fd,b9, 
7b,c6,85,fe,b9,64,c6,85, 
fa,a9,00,85,a3,a9,ce,85, 
a4,b9,65,c6,aa,ca,a4,fa, 
88,b1,9e,48,b1,fb,48B,b1, 
fd,91,fb,b1,a3,91,9e,68, 
91,fd,68,91,a3,88,10,e9, 
20,85,c4,ca,1®,e0,a2,64, 
a8,00,ea,88,dd,fc,ca,d®, 
£9,ad,fd,cf,d®,1c,a9,F®, 
8d,23,c2,8d4,26,c2,ac,fc, 
cf,b9,65,c6,aa,ca,a9,38, 
28,b3,c4,8d,8e,c2,8d,fb, 
cf,680,89,90,8d,23,c2,8d, 
26,c2,a9,f5,8d,Be,c?,ee, 
F6E,cf,a9,00,8d,fb,cf,8d, 
fa,cf,a9,84,8d,f8,cf,aS, 
03,8d,f9,cf,60,ad,@F,d®, 
a8,01,c9,33,b0,06,88,20, 
ef,c4,30,e6,39,38,18,69, 
08,cd,®Ff,d®,b0,03,c8,d®, 
fS,cc,fa,cf,f®d,de,Bc,fa, 
cf,a9,28,85,fa,a9,00,85, 
fd,a9,d8,85,fe,88,20,85, 
c4,88,10,fa,ad,f8,cf,B5, 
fb,ad,f9,cf,85,fc,ac,fc, 
cf,18,a5,fd,79,50,c6,85, 
fd,8d,f8,cf,a5,fe,69,00, 
85,fe,8d,f9,cf,b9,64,c6, 
a8,88,ad,fa,cf,f®,05,ad, 
f1,cf,31,fd,ad,f2,cf,S31, 
fb,88,10,ee,60,ad,fb,cf, 
f®,Ba,d®,89,18,a5,fd,65, 
fa,85,fd,a5S,fe,69,00,85, 
fe,a5,fb,69,28,85,fb,a5S, 
fc,69,00,85,fc,18,a5,a3, 
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®ceil 
®ce3 
Ocfi 
Ocf3 
2d21 
0429 
Od11 
0419 
®d21 
0429 
0431 
2439 
0d41 

0d49 
0d51 

0459 
Od61 

0469 
8471 

8479 
Od81 

0489 
8491 

“Jetz1=] 
Odal 
daS 
®db1 
@db93 
Bdci 
BdcS9 
Oddi 

2dd9 
Odel 

2de3 
Odfi 

@df9 
de21 

0e09 
dell 

Bel9 
Be21 

de29 
Bde3l 
0e39 
Be41 

de43 
Be51 

8e593 
Be6l 

0869 
Be71 

0873 
Be8l 

0883 
BdeS1 
0e39 
Deal 
Oea9 
Bebi 
Beb3 
Beci 
Bec9 
dedi 
Bed 
Beel 

Bee9 
Bef1l 

Bef9g 
or®1 

0F23 
orF11 

orf19 
or21 

or29 
or31 
0f33 
orf41 
of43 


1578 
1580 
1598 
1608 
1618 
1620 
1638 
1640 
165® 
1668 
1670 
1688 
1698 
1788 
1710 
17208 
1738 
1748 
1750 


‘1768 


1778 
1788 
1798 
1898 
1818 
18208 
1830 
18498 
1858 
1868 
1878 
18808 
1898 
1998 
1918 
1928 
1938 
1940 
1958 
1968 
1978 
1988 
1998 
20008 
2018 
20208 
2038 
2040 
2050 
2060 
2070 
20808 
2038 
2188 
211® 
21208 
2138 
2140 
2158 
2168 
2178 
2188 
2198 
2208 
2210 
2220 
2238 
B24O 
2250 
2268 
2270 
2288 
2298 
2300 
2318 
2329 
2338 
2348 


65,fa,85,a3,18,a5,9e,69, 
28,85,98,35,9Ff,69,00,85, 
9£f,60,85,fe,18,a5,fe,69, 
08,85, fe,90,04,30,80,84, 
fd,ca,10,f0,60,a2,27,a9, 
a0,9d4,90,cf,ca,18,fa,a9, 
00,8d,f8,cf,20,9e,ad,24, 
0d,30,05,a2,0b,4c,37,a4, 
20,a6,b6,aa,c9,29,b2,f3, 
a80,008,84,fc,84,fb,8c,4f, 
c6,b1,22,48,29,3Ff,29,80, 
99,990,cf,68,09,21,90,®e, 
a5,fc,d®,03,20,33,c5,a9, 
01,85, fc,ee,4f,c6,c9,2®, 
d®,2d,a5S,fc,f®,09,88,20, 
33,c5,c8,89,00,85,fc,c8, 
ca,d®d,ce,a6,fb,ca,f®,b3, 
ed,14,b0,af,88,a9,01,8d, 
F®O,cf,B4,fd,38,a4,fb,99, 
Sß,c6,e6,fb,a4,fd,60,20, 
Se,b7,ec,4f,c6,90,03,4c, 
48,b2,8a,Ba,aß,8c,ef,cf, 
b9,7a,c6,85,fd,b9,7b,c6, 
85,fe,a9,00,99,64,c6,99, 
65,c6,a0,78,a9,a0,91,Fd, 
88,10,fb,a5,7a,85,Ffb,a5, 
7b,85,fc,20,fd,ae,20,9e, 
ad,24,2d,10,61,20,a6,b6, 
ae,ef,cf,fe,65,c6,dd,64, 
c6,90,07,9d4,64,c6,c9,0b, 
b®,b5,20,79,080,d0,dc,20, 
73,28,b6d,65,c6,c9,0d,b®, 
a6,a5,fb,85,7a,a5,fc,85, 
7b,208,fd,ae,28,9e,ad,2®, 
a6,b6,a8,88,b1,22,29,3f, 
09,80,91,£fd,88,10,f5,a5, 
fd,18,ae,ef,cf,7d,64,c6, 
85,fd,a5,fe,69,00,85,Fe, 
20,73,00,d0,d4,Ba,4ta,aa, 
a9,801,9d,e®d,cf,60,4c,08, 
af,78,a9,31,8d,14,03,a9, 
ea,8d,15,03,ad,15,d0,29, 
7£f,8d,15,d0,58,60,a9,01, 
8d,f3,cf,60,29,00,8d,Ff3, 
cf,60,20,9e,b7,8e,2e,d®, 
Be,07,c2,60,20,9e,b7,8e, 
20,d0,20,96,c8,Be,21,d®, 
60,20,9e,b7,Be,f2,cf,Ba, 
a2,793,9d,00,ce,ca,1®,Fa, 
20,96,c8,8e,f1,cf,60,a9, 
00,8d,f6,cf,8d,f7,cf,6®, 
£f8,00,00,F0,00,00,F0,00, 
00,F8,200,00,90,00,280,Be, 
00,20,06,00,00,00,20,00, 
00,20,200,20,20,00,00,00, 
00,00,00,00,00,00,00,00, 
00,00,20,20,00,00,200,00, 
00,00,00,00,00,00,00,00, 
00,20,20,20,00,20,20,00, 
20,00,cf,80,cb,79,cb,f2, 
cb,6b,cc,e4,cc,5d,cd, 94, 
9e,2d,9f,86,9Ff,a9,9b,8d, 
26,03,a9,c6,8d,27,23,14c, 
83,c9,78,85,fd,84,Ffc,86, 
fb,a2,00,86,02,a6,9a,ed, 
03,d0,08,36,3a,e8,d®,86, 
20,83,c9,4c,43,c7,ae,Ba, 
ce,38,fF0,29,78,c9,93,d®, 
03,4c,56,07,c9,1d,d@,14, 
ae,87,ce,e4,d3,b®,16,ac, 
B86,ce,a6,d6,18,20,F0, ff, 
a9,11,85,fd,c9,91,d0,09, 
a6,d6ß,ec,88,ce,b2,66,90, 
11,c9,11,d0,0Ff,ae,89,ce, 
e4,d6,b®,4e,28,ae,c7,20, 
e2,c7,30,75,09,9d,d®,14, 
a6,d3,ca,et,B6,ce,b®,3a, 
ac,87,ce,a6,d6,20,F0,Ff, 
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OFSsı 
0f59 
Of61 
of63 
o£f71 
0F793 
or81 
of83 
orsı 
0F39 
Bfal 
Ofasg 
Ofbi 
OFfb9 
Bfci 
8fc9 
ofdi 
ofd9 
Ofei 
OfeS 
@ffıl 
BrFfS 
1001 
1989 
1011 
1819 
1021 
1029 
1031 
1039 
1041 
1049 
1051 
1059 
1061 
10683 
1071 
1079 
1081 
1089 
1031 
19099 
10a1l 


1089 


10b1 
10b9 
10c1 
18c9 
10d1 
1049 
10e1 
1083 
10F1 
19F9 
11901 
1189 
2111 
1119 
1121 
1129 
1131 
1139 
1141 
1149 
1151 
1159 
1161 
1169 
1171 
1179 
1181 
1189 
1191 
1199 
ilal 
11a9 
11b1 
11b9 


2350 
2368 
2370 
23808 
2398 
2490 
241® 
24208 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2508 
2518 
2528 
2538 
2540 
2550 
2568 
2570 
2588 
2598 
2698 
2618 
2620 
2638 
2649 
2650 
2668 
2670 
26808 
2690 
2708 
2710 
27208 
2738 
2748 
2750 
2768 
2770 
2780 
2790 
2800 
2810 
2B20 
2830 
2840 
2850 
2869 
2870 
2882 
28390 
2908 
2918 
2928 
2930 
2940 
2950 
2968 
2978 
2980 
2990 
3008 
3010 
3020 
3030 
3049 
3050 
3069 
3070 
3089 
3098 
3109 
3118 
3128 


a9,91,85,fd,c9,14,f0,65, 
c9,94,f0,55,c9,0d,d®,®F, 
ac,B6,ce,a6,d6,18,20,f0, 
£ff,a9,11,85,fd,d®,ba,c9, 
13,£0,34,c9,20,90,0b,10, 
®4,c9,a0,90,05,85,02,4c, 
c9,c6,a5,fd,a6,02,f0,05, 
e8,ca,f1,a5,02,a4,fc,a6, 
fb,58,4c,ca,f1,20,ae,c7, 
at, fe,a9,20,91,49,88,12, 
fb,20,03,c8,ca,10,fl,ae, 
8B,ce,ac,86,ce,18,20,f0, 
ff,a5,02,d0,d8,a5,fd,a4, 
£fc,a6,fb,58,60,85,ce,“8, 
a9,20,ae,86,02,20,i1c,ea, 
a4,d3,cc,86,ce,d®,2d,ac, 
87,ce,a6,d6,ec,88,ce,f®, 
06,ca,10,03,88,a6,d6,18, 
20,f0,Ff,68,3e,86,02,20, 
ic,ea,4c,72,c7,a9,00,85, 
£f8,a9,04,85,f9,39,d8,85, 
40,18,a5,f8,6d,86,ce,8B5, 
f8,85,4b,ae,B8,ce,20,03, 
c8,ca,18,fa,ad,8BS,ce,38, 
ed,88,ce,aa,ad,87,ce,38, 
ed,86,ce,a8,84,fe,60,b1, 
£f8,931,49,b1,4b,91,ac,88B, 
10,F5,28,03,c8,a4,fe,ca, 
190,ed,39,20,91,49,ad,86, 
02,91,ac,88,10,f4,18,a5, 
fd,60,35,£f8,85,49,18,69, 
28,85,£8,a5,F9,85,4a,69, 
00,85,£f9,35,4b,85,ac,18, 
69,28,85,4b,a5,4c,85,ad, 
69,00,85,4c,60,20,bc,cB, 
20,98,b7,22,008,F0,63,eB, 
08,b®,5f,Be,Ba,ce,20,36, 
c8,e8,26,b8,55,88,86,ce, 
20,96,c8,e0,27,b8,“4b,ec, 
86,ce,98,46,F®0,44,8e,87, 
ce,20,36,c8,e0,17,b®,3a, 
8e,88,ce,28,96,c8,e0,19, 
b®,30,ec,88,ce,90,2b,f®, 
29,8e,89,ce,a9,93,20,d2, 
Ff,ae,8a,ce,a9,01,9d,8b, 
ce,9d,94,ce,a®,20,c8,c8, 
cB,c8,ca,10,f9,a2,23,bd, 
86,ce,939,9d,ce,88,ca,1®, 
£f6,69,4c,48,b2,20,fd,ae, 
20,9e,b67,60,ae,Ba,ce,a9, 
00,85,67,85,bb,bd,c6,ca, 
85,b8,18,69,48,85,bc,28, 
a3e,c7,78,c8,B4,fe,a9,35, 
85,01,60,20,9d,c8,bl,ac, 
91,b7,b1,49,91,bb,88,10, 
f5,20,d4,c8,a4,fe,ca,12, 
ed,30,13,20,803,c8,18B,a5, 
b7,65,fe,85,b7,85,bb,90, 
04,2e6,b8,e6,bc,60,39,37, 
85,21,58,60,20,9d4,c8,88, 
b1,b7,91,ac,b1,bb, 91,49, 
88,10,f5,20,d4,c8,a4,Fe, 
ca,180,ec,30,e1,28,bc,cB, 
280,9e,b7,e®0,08,b0,83,bd, 
8b,ce,f®,61,78,a9,01,9d, 
94,ce,Be,8a,ce,290,27,c9, 
20,ed,c8,4c,68,07,a0,00, 
c8,c8,c8,c8,ca,12,Ff9,a2, 
23,b9,9d,ce,9d,86,ce,88, 
ca,10,f6,60,28,bc,c8,20, 
Se,b7,e0,00,f0,39,e0,08, 
b8,35,bd,Bb,ce,f®,26,78, 
Be,Ba,ce,a9S,20,9d,S4,ce, 
20,27,c9,2080,bc,c8,a2,00, 
bd,94,ce,f®,09,Be,Ba,ce, 
20,1e,c9,ae,Ba,ce,eB,eß, 
08,d20,ed,58,60,39,ce,aß, 
ca,2®,1e,ab,4c,6c,a4,“4c, 


313® 48,b2,82,03,bd,9e,ce,3d, 22,b0,06,86,d6,20,6c,8e5, 

3149 B6,ce,ca,108,F7,a2,10,9d, 60,4c,48,b2,28,94,ca,2®, 

3158 Bb,ce,ca,18,fa,8d,Ba,ce, fd,ae,4c,a®d,aa,a®d,a4,aßB, 

3168 a9,01,8d,8b,ce,8d,94,ce, ab,b®,b4,b8,bb,3f,57,49, 

3178 60,20,94,ca,20,fd,ae,20, 4s8,44,4f,57,20,4e8,4f,54, 

3188 9e,b7,2e0,00,F9,12,86,c2, 2e0,44,45,46,49,4e,45,44, 

3198 20,fd,ae,20,9e,ad,20,8f, 00,00,00,00,00,00,00,00, 

32908 ad,20,86,b6,c9,00,d0,03, 

3218 4c,48,b2,85,37,a5,22,85, 

3220 a8,a5,23,85,89,39,00,85, 60908 For a= 2049 to 4897 step 4056 

3230 45,20,fd,ae,20,8b,b0,20, 8:5=-8d:c=®:for b=® to 7: 

3249 Bf,ad,a9S,00,85,aa,85,c3, gosub 69049 

3250 85,c1,85,cc,39,60,85,c4, 60018 s=-s+h+l-c: co=s>2355: s-255-s 50934 

3268 a5,c6,f®d,fc,20,b4,eS,c9, and 255:poke atb,h+l:next 

3270 14,£0,36,c9,0d,f0,54,a®, b:gosub 69040 

3288 00,d1,38,f0,27,c8,c4,a7, 60028 F$="prusfsumme ok”:if s<> 5699 

3298 da,f7,f®,e4,a4,c1,91,c3, h+l then f$="[rvs] 

330 8S5,ab,20,8b,ca,20,d2,Ff, prusfsummenfehler”:f=f+1 

331® e6,aa,8e5,c01,35,c1,c05,c2, 60038 gosub 60099:next a:print 2267 

3320 d®d,ce,c6,c1,a5,c2,85,aa, Cdown]”f”fehler”:end 

3330 a9,9d4,20,d2,Ff,a9,00,F0, 60242 read h$:gosub 69059:h-1* 2715 

33498 bf,a6,c1,f®,bb,c6,aa,a6, 16:h$=mid$ Ch$,2) 

3350 aa,e8,e4,c?2,f8,807,20,d2, 60050 l=-asc Ch$+”x”")-4B8:if 1<0 3198 

3368 FFf,c6,c1,18,ab,a9,20,20, or 1>22 then 60088 

3370 d2,ff,a39,94,28,d2,ff,aS9, 60868 if 1<18 then return 19044 

3388 60078 1-1-7:if 1>9 then return 1334 

3398 60088 F$="[rvsleingabefehler”:1- 2458 

3400 O:f=-f+1 

3410 60098 print "”zeile” peek (64)* 2726 

3428 856+peek (63)Ff$:return 

3438 

3440 

3459 

3460 

3470 

3480 

3490 b®,17, 
88,ce, 


0 


saven des programms nach starten 
des loaders mit 


poke 43, 1:poke 44, 8 
poke 45, 3%: poke 46, 19 


BRTBREBTERBSGE 
RuBSPUBBBSBES 


window-basic demo 
written 1986 by 


e print "fuehrenden routiene ge- 
* stephan keilholz 

“ 

“ 


T4spaces]sprungen.” 
568 


gosub 

is def 3,13,26,9,20 

print "[chbm 2ZJes koennen max1® pull- 
downf2spaces)Jmenues defi-[2spaces) 
niert werden.” 

PFEOIe3“ 2315 print "ein menus kannmax 12 ein- 


!col or 13,5 55 C3spaces]ltraege von je 18-zeichen 
!s def "®C2spaces]il2spaces]2[2spece=s) 2878 C4spaces]laenge ”; 


3[2spaces]4[2spaces)5S[l2spaces)5 \ print "auf-[C3spaces]Inehmen !!!" 
C2spaces]7[2spaces]8[ 2spaces]3"” gosub 569 

a=®d | !w def 4,2,16,7,16 
a$5-"0000000000”:gosub 520 print "Cblklausserdem kann man bis zu 
a$="1111111111”:gosub 528 7C3spaces]verschiedene[l3spaces] 
as-"2222222222”:gosub 528 windows”; 

85-"3333333333” :gosub 528 print ” de-[4spaces)finiern, auf 
a5=- "Y4y444Yy4444”:gosub 528 diedann alle aus- gaben umge- 
a$-"5555555555”:gosub 528 C4spaces]lleitet werden.” 

a$=- "6666666666" :gosub 528 gosub 568 

as="7777777777”:gosub 522 !w def 5,12,34,13,19 
a$="8888888B88”:gosub 528 print "[yellzwischen diesen 
a$-"93999999999” :gosub 529 windowskann man nach belieben 
Im on :!p on umschalten,” 


!w def 1,1,16,2,18 print "Cdownldruecken sie einmalldown, 
print "L[LwhtJmit window-basicist es Yspaces]’+’ oder ’-’ 1” 


moeglich auf dem c-54”; a=5 
print ” vonbasic aus pull- down menues get a$:if a$=""” then 480 
zul2spaces)definisren,.” if aS=-"+” and a<5 then a=a+1:!wnra 
gosub 560 if a$-"-” and a8 then : !woffa:a=a-1 
!w def 2,10,36,5,28 goto 489 
print "[blulklickt man eines der for i-® to 9:a$(Ci)=a$:next 
menuesmit dem pfeil an,faellt es Im def a,a3$(0),a$(1),a$(2),a$(3), 
herab,”; a5(4),3$5(5),3$(6),a$(7),a$(8),a$(9) 
print "und man kann einen[3spaces) d a-a+l 
menue-punkt anwaehlen”; return 
print ” vonl[l2spaces]basic aus wird print ”C[Cdown]--- taste ---” 
dann ueber[2spaces]lden 'on’-befehl poke 198,8:wait 198,1:return 


i l fe des „W-Basic" auf 


heikenbergstr .4 
3422 bad lauterberg 
* tel: 05524/4817 
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BETEILIGTEN Praxis Listing m mem use eu 


l€Cs ordnen und 


System: C64/Laufwerk 
Typ: Anwendung 
Sprache: Basic 


Hardware-Entwicklungen ver- 
schlingen meist mehr Bauteile als 
ursprünglich geplant. Besonders 
ärgerlich fällt diese Grundregel 
der EDV auf, wenn ein einziges 
Chip fehlt, um das selbstentwik- 
kelte Zusatzmodul zu komplettie- 
ren. Erstellt man vor dem ersten 
Arbeitsschritt eine Inventurliste, 
geht man diesem Problem aus 
dem Weg. „IC-Register" ist ein 
Verwaltungsprogramm, dessen 
Hauptaufgabe das Erstellen der- 
artiger Listen ist. Startet man das 
Programm, erscheinen am Bild- 
schirm die 11 Unterpunkte des 
Hauptmenüs. 

1.) IC-Eingabe 

IC-Bezeichnung, -Nummer, -Ver- 
wendung und Anzahl sind einzu- 
geben. 

2.) IC-Nummern-Liste 

Um einen Kurzüberblick zu erhal- 
ten zeigt „IC-Register" alle vor- 
handenen IC-Nummern und de- 
ren Bezeichnungen auf. 


verwalten 


„IC-Register“ bringt 
Ordn ung in Bauteile- 
kisten. Über Drucker 


oder Bildschirm infor- 


miert das Programm, 
welche Chips im 
Bastelraum zur Zeit 
heimisch sind. 


3.) IC-Liste gesamt 

Am Bildschirm erscheint eine 
Liste aller eingegebenen ICs mit 
genauen Beschreibungen. 

4.) IC-74XXX-Liste 

Besonders häufig nutzt man ICs 
der 74er Reihe. Aus diesem 
Grund beinhaltet „IC-Register" 
die Option, alle eingetragenen 
Chips dieser Serie aufzulisten. 

5.) Sortieren nach Nummern 
Ordnet ICs in der Reihenfolge ih- 
rer Typenbezeichnung. 

6.) Daten speichern 

Schreibt alle eingegebenen Daten 
im Speicher auf Diskette. Datei- 
namen sind vorher einzugeben. 


7.) Daten laden 

Lädt eine, mit „IC-Register" ge- 
speicherte, Datei ein. 

8.) Liste drucken 

a) IC-Nummern drucken 

b) Alle IC-Daten drucken 

c) Alle 74er ICs ausdrucken 

9.) IC suchen 

Je nach Eingabe sucht das Pro- 
gramm nach ICs mit der Nummer 
NR oder mit der Bezeichnung BZ. 
Ist ein IC mit eingegebenen Krite- 
rien gespeichert, erscheinen 
sämtliche Daten zu diesem Chip 
am Bildschirm. 

10.) Liste editieren 

a) Einen bestimmten IC editieren. 
b) Alle ICs editieren. 

c) Einen bestimmten IC löschen. 
11.) IC-Entnahme 

Um die Datei aktuell zu halten, 
muß man entnommene Chips mit 
Menüpunkt 11 aus der Datei ent- 
fernen. 

E) Ende 

Führt nach Sicherheitsabfrage ei- 
nen RESET durch. 


Frank Koehler EmEmEEEEEEEEEEEEE 


rem ice register 
rem 7/86 

rem written 

rem by 

rem frank koehler 

rem hornstr ..111 

rem 5860 berg.gladbach 2 

rem 

print ”C[Cclr)” 

dim a$(S®):rem datenfeld fuer bezeichn 
un 

dim b$(Sß):rem datenfeld fuer ic numme 
r 

dim c$(50):rem datenfeld fuer anwendun 


PBEDNmnun,skrwWnur 


re 


g 

dim d(S®):rem datenfeld fuer anzahl 

q=-58:rem anzahl der elemente 

print ”"Cclr]"”:rem hauptmenue 

print "[C16spaces]ic-register” 

print 

print 

print "[1®spaces]1[3spacesleingabe ic" 

print "[1®spaces]2[3spaces]lliste ic 
nummer” 


print "[18spaces]3[3spaceslliste ic 


print "[128spaces]S5l3spaces]sortieren 
nach nummern” 


print ”"[1®spaces]&6[3spacesIdatei 
abspeichern” 
print "[18spaces]7[L3spaces]datei 
laden” 
print ”"[1®spacesJ8[3spaces]liste 
drucken” 
print "[1®spaces]S[3spacesJlic suchen” 
print "[9spaces]18[3spaces]liste | 
editieren” | 
print "[Sspaces]11l3spaces]ic 
entnahme” | 
print 
print "[18spaces]el3spaces]lende” 
print 
input "[SspacesJwahl:”;s$ 
if s$="1” then goto 1008 
s$=-"2" then goto 
s3-"3” goto 
s3-"4” goto 
ss-’5n goto 
s5=-"6"” goto 
3-7" goto 
s35="8"” goto 
s5=-"9" then goto 39008 
s5=-"18" then 190000 
s$5=-"11” then 15900 
s$5=-"e” then 200080 
goto 20 
rem eingabe der daten 
print "Cclr]” 


1020 
1040 


1058 
1060 
1070 
1889 
1098 
1108 
1118 
1128 
1125 
1126 
1138 
11408 
1158 
1168 
1179 
1188 
1198 
12008 
1218 
1228 
1225 
1230 
12498 
20008 


2005 
2010 
2015 
20208 
2040 
2050 
2060 
2078 
2075 
2039 
3908 
3005 
3010 


3928 
3040 
3050 
3055 
3060 
3970 
3089 
3039 
49200 
4005 
4010 
49015 
4920 
4030 
4100 
4119 
4130 
4140 
4168 
4179 
4188 
4199 
4210 
5908 
5905 
5210 


5015 
5920 


5038 
5040 
5058 
50269 
5070 
5088 
5030 
5198 
5110 
5129 
5138 
5149 
5159 


WRCD? 


print ”es sind 
enthalten” 

print :print 

print "eingabe 

usa usw)” 
input a$(g) 

print 

print "eingabe 
input b$(Cg) 

print 

print "eingabe anwendung” 

input c$(g) 

print 

print "eingabe anzahl” 

input d(g) 

print 

print d(gq);”"mal ”;” ”";a$(lq);" ";b$Cqg) 
print 

print c$(g) 

print 

input "seingabe richtig jJ/n”;d$ 

if d$="j" then 12198 

goto 1888 

input "weitere eingaben J/n";d$ 

q=q-i1 

if q=® then goto 19908 

if d$="n"” then 28 

goto 198088 

rem liste der ic nummern mit bezeichnu 
ng 

print ”[clr]” 

print "[13spaces]lliste ic nummern” 

print 

For r=5® to q+i1 step -1 

print a$(r);” ”;b&(Cr) 

print :print 

if peek (214)>28 then gosub 53988 

next r 

gosub 53988 

goto 28 

rem liste der gesammten ics 

print ”"[Cclr)]"” 

print "[14spacesJliste ics gesammt”: 

print 

For r=58 to q+1 step -1 

print d(r); "mal ";a$(r);"” ";bS(Cr) 

print c$(r) 

print 

if psek (214)>22 then gosub 5388 

next r 

gosub 5398 

goto 28 

rem liste der 74xxx ics 

print "Cclr]” 

print ”"[13spaces)liste 74xxx ics” 

print 

i=-q 

if left$ (b$(i),2)<>"74" then 4168 
print 

print a$(li);” ”;b$(Ci) 

print c$(i) y 
if pesk (214)=>28 then gosub 5328 
i-i+l 

if i=-51 then 4198 

goto 4038 

gosub 5308 

goto 28 

rem sortierroutine 

print ”Cclr)]” 

print ”"[CSspaces)]sortieren nach 
nummern” 

print 

print "achtung eingegebene reihenfolge 
geht[“4spaces]verloren” 

print . 

input "zurueck zum menue j/n";s5 

if s$="j" then goto 29 

print ”C[clr)” 

print "[13spaces]sortierung lasuft” 
for x"q+2 to 58 

For y*q+1 to 58 

if bS(x)<=b$(y) then 5159 
s$-bSCx):bSCx)-bSCy):bSly)=-s5 
s$-aS(x):aSlx)-aßly):asly)=-s$ 
s$-c5(x):cElx)=-cHly):cHly)=sS 
s-d(x):dcx)=-dly):dly)-s 

next 4,xX 


”,58-q;” elemente 


ic bezeichnung (zb.sn, 


ie nummer” 


KRRETTRRRERR LETSBV CPBLIER ARD 


print "[13spaces]sortierung beendet” 
for r=58 to q+i1 step -1 

print d(r);"mal ";a$(r);" ";b$(cr) 
print c$(r) 

print 

if pesk (214)>28 then gosub 5398 

next r 

gosub 5398 

goto 28 

rem warteschleife bis taste gedrueckt 
wird 

print "bitte taste druecken” 

get i$:if i$="”"” then 5318 

print "[clr)” 

return 

rem abspeichern der daten 

print ”"Cclr)” 

print ”"[12spaces]daten abspeichern” 
print 
print 
ein” 
input u$S 

print "Cclr]” 

print "[9spaces]datei ”;u$;” wird 
abgespeichert”:print 

JS-uS+",s,w” 

open 2,8,2,3j$ 

print#2,q 

for r=5® to g+1 step -1 
print#2,a$Cr)",”b$SCr)”,”"c$Cr)",” str$ 
(dcr)) 

next r 

close 2 

print "[Sspaces]datei "”;u$;” 
abgespeichert”:print 

gosub 53988 

goto 29 

rem laden der daten 

print "Cclr)” 

print "[1Sspaces]daten laden" 

print 

print "geben sie den namen der datei 
ein”:print 

input uS 

print "[clir)]” 

print "[BspacesIdatei 
geladen”:print 

35-uS+",s,r” 

open 2,8,2,)8 
input#2,q 

for r-58 to q+i1 step -1 
input#2,3$(r),b$(r),c$(r),d(r) 
next r 

close 2 

print "[BspacesIdatei 
geladen”:print 

gosub 5308 

goto 28 

rem drucken der daten 
print ”"Cclr)” 

print "[17spaces]daten drucken” 

print 

print "welche liste soll gedruckt 
werden” 

print 

print "C3spaces])1[3spaces]lliste nur ic 
nummern” 

print "[3spaces]2[3spaces]liste ics 
gesammt” 

print "[3spaces]3[3spacesJliste 74xxx” 

print 

input "wahl:”;s$ 

if s$=-"1"” then 83008 

if s$=-"2” then 8509 

if s$=-"3” then 8708 

goto 8008 

rem drucken der liste ic nummern 

print "Cclr]” 


"geben sie den namen der datei 


wurde 


”":uS;” wird 


";u$;” wurde 


print "[l2spaces]Jliste wird gedruckt”: 
print 

open 3,4 

cmd 3 

print ”[1®spaces]Jliste der ic nummern” 


print 
for r=5® to q+1 step -1 
print a$(r);" ";,b$(r) 
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print 

next r 

print#3 

close 3 

print "[l2spaces]lliste wurde gedruckt” 
:print 

gosub 5308 

goto 28 

rem drucken der liste der gesammten ic 


s 
print "[Cclr)]” 
print "[1l2spaces]lliste wird gedruckt": 
print 
open 3,4 
cmd 3 
print ”"[10spaces]lliste ics gesammt” 
print 
for r-58 to q+1 step -1 
print d(r);”mal ";a$(lr);” ”;bSCr) 
print c$(Cr) 
print 
next r 
print#3 
close 3 
goto 84208 
rem drucken der liste des 74xxx ics 
print "Celr)” 
print "[12spaceslliste wird gedruckt”: 
print 
open 3,4 
cmd 3 
print "[1®spaces)liste der 74xxx ics” 
print 
for r=-58 to q+1 step -1 
if left$ (Cb$(r),2)="74” then 8809 
next r 
goto 86198 
print d(r); "mal ”;a$(r);” ”;b$(Cr) 
print c$(r) 
print 
next r 
goto 8610 
rem ic suchen 
print "Ccolr)” 
print "C16spaceslic suchen” 
print 
print "[18spaces]1[3spaces]nach ic 
nummer” 
print "[18spaces]2[3spacesJnach ic 
bezeichnung” 
print 
input "wahl:”;s$ 
if s$=-"1" then 91008 
if s$=-"2" then 93908 
goto 399908 
rem suche nach ic nummer 
print ”"Cclr]” 
print "[9spaces]suchen nach ic nummer” 
print 
input "bitte geben sie die zu suchende 
ic[6spacesInummer ein”;s$ 
for r=58 to gq+1 step -1 
d if bS(r)=s$ then 92008 
next r 
print :print "ic ist nicht in der 
datei enthalten”:print 
gosub 53008 
goto 28 
print 
print "ic ist in der datei enthalten”: 
print 
print d(r); "mal ";aS(lr);" ”;bS(Cr) 
print c$(r) 
print 
goto 91798 
rem suche nach ic bezeichnung 
print "[Cclr]”:mi=® 
print "[8spaces]suchen nach ic 
bezeichnung” 
print : 
input "bitte geben sie die zu suchende 
icl6spaces]lbezeichnung ein”;s$ 
d? For r=58 to g+1 step -1 
if aS(r)-s$ then 35008 
next r 
print 
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if mi=® then print ”ic bezeichnung 
nicht enthalten” 

print 

gosub 5309 

goto 29 

print 

print d(r); "mal ";a$(r);"” ”;b$Cr) 
print c$(r) 

print 

if peek (214)>28 then gosub 5308 
next r 

goto 9379 

rem liste editieren 

print "Cclr)” 

print "[14spaceslliste editieren” 
print 

print ”"[3spacesJ1[3spaces]leditieren 
eines bestimmten ics” 

print "[3spaces]2[3spacesJeditieren 
der gesammten liste” 

print "[3spaces)3[3spaces]lic aus datei 
loeschen” 

print 

input "wahl:”;s$ 

if s$=-"1” then 10100 

if s5=-"2” then 12008 

if s$=-"3" then 13208 

goto 10098 

rem editieren eines bestimmten ics 

print "Ccolr)” 

m=-d 

print "[4spacesleditieren eines 
bestimmten ics” 

print 

input "welches ic”;s$ 

for r=58 to q+1 step -1 

if bSCr)=-s$ then 190308 

next r 


D print 


10679 
10680 
10639 
1907008 
18710 
10800 
10805 
10810 


print "ic nicht in der datei 
enthalten” 

print 

gosub 5308 

goto 28 

print ”Cclr]” 

print "[Bspaceslic in der datei 
enthalten” 

print 

print d(r);"mal ";a$(r);” ”;b$Cr) 

print c$(r) 

print 

rem editierroutine 

print "was soll editiert werden” 

print 

print "C3spaces]1[2spacesJanzahl” 2 
print "[3spaces]2[2spaces]bezeichnung” 
print "C3spaces]3[2spaces]Inummer” 
print "[3spaces)]4[2spacesJanwendung” 
print "C3spaces]Sl2spaces]zuruseck ins 
hauptmenus” 

print 

input "wahl:”;s$ 

if s$=-"1"” then 

if s$=-"2” then 

if s5=-"3"” then 

if s$=-"4” then 

if s$=-"5” then 

if m-1 then 122098 

goto 10308 

rem editieren der anzahl 

print ”"[clr]” 

print "[1®spacesleditieren der anzahl” 

print 

print "jetzige anzahl”;d(r) 

print 

input "neue anzahl”;o 

d(r)=o 

print 

print "anzahl wurde editiert” 

gosub 5398 

if m=1 then goto 1390808 

goto 28 

rem editieren der bezeichnung 

print "[clr]” 

print "[1S5spaces]leditieren der 
bezeichnung” 
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print 

print "jetzige bezeichnung: ";a$(r) 
print 

input "neue bezeichnung”;s$ 
as(lr)=s$ 

print 

print ”"bezeichnung wurde editiert” 
gosub 5380 

if m=-1 then goto 13908 

goto 228 

rem editieren der ic nummer 

print "C[Cclr]” 

print "C15spacesleditieren der nummer” 

print 

print "jetzige nummer: ”;b$(r) 

print 

input ”"neus nummer” ;s$ 

bS(r)=sS 

print 

print "nummer wurde editiert” 

gosub 53988 

if m=-1 then goto 13008 

goto 28 

rem editieren der anwendung 

print ”[clr)” 

print "[1Sspacesleditieren der 
anwendung” 

print 

print "jetzige anwendung” 

print c$(r) 

print 

input "neues anwendung”;s$ 

c$(r)-s$ 

print 

print ”"anwendung wurde editiert” 

gosub 53988 

if m=-1 then goto 139088 

goto 28 

rem editieren der gesammten liste 

print "Ctclr)” 

print "[6spacesleditieren der 
gesammten liste” 

print 

for r=5® to q*+1 step -1 

print d(r); "mal ";a$S(r);” ”;b$Cr) 

print c$(r) 

print 

input "soll editiert werden ja/nein”; 

ss 

if s$=-"j" then 12208 

if peek (214)>28 then gosub 5398 

print 

next r 

gosub 5300 

goto 28 

print ”"Cclr]” 

print "editieren des ics:” 

print 

print d(r); "mal ”";a$(r);"” ”;b$(Cr) 

print c$(r) 

m-1 

goto 18368 

print ”"Colr)” 

print "[6spacss]leditieren der 
gesammten liste”:print 

next r 

rem losschen eines ics aus der datei 
print ”[clr]” 

print "[Sspaces]loeschen eines ics aus 
der datei” 

print 

print "welches ic soll geloescht 
werden” 

input "bitte nur die nummer eingeben”; 
ss 


Register" ordnet das Chaos in Bauteilekisten 


Anzeigenschluß für die RUN Nr. 7/81 
ist der 13. 5. 1987 


WWW RROME COMPONT ERWVOREIEELIN 


13258 
13268 
132708 
13288 
13290 


13308 
13318 
159008 
15005 
15010 
15020 
15038 
15040 
15050 
15060 
150708 
15075 


15080 
15098 
15208 
15218 
15220 
15238 
15248 
15258 
15268 


15278 
15275 
15288 
15298 


15308 
15310 
15400 


15418 
15420 


15430 
15440 
15445 
15450 
15478 
15471 
15472 
15473 
15475 
15476 
15477 
15488 


print 

for r-S5® to g+1 step -1 

if b$(r)=s$ then 15440 

next r 

print ”ic nicht in der datei 
enthalten” 

gosub 5398 

goto 28 

rem entnahme eines ics 

print "[clr]” 

print "[ilspacesJic entnahme” 

print 

print "welches ic wurde entnommen” 
input "bitte nur nummer eingeben”;s$ 
for r-58 to q+i step -1 

if b$SCr)=s$ then 15299 

next r 

print :print "ic ist nicht in der 
datei enthalten” 

gosub 5398 

goto 28 

print 

print a$(r)s” ”;b$Cr) 

print c$(r) 

print 

print "es sind ”;d(r); "enthalten" 
print 

input "wieviele ics wurden entnommen”; 


s 

dtr)=-dlr)-s 

print 

if d(r)<1 then 15408 

print "es sind noch ";d(r);"ics 
enthalten” 

gosub 5308 

goto 28 

print "es sind jetzt keine ics mehr 
enthalten” 

print 

input "soll das ic aus der datei 
geloescht[Sspaces]lwerden J/n";s$ 
if s$-"n" then 28 

rem loeschroutine 

if r=-q+1 then q*r 

if q=r then 28 

aS(r)-aSClr-1) 

bS(r)=-bS(r-1) 

eS(r)=-cS5(r-1) 

dtr)=-dtr-1) 

rer-1 

if r=g*+1 then 154808 

goto 15478 

a=g+l 

print :print "ic wurde gelosescht”: 
print 

gosub 5308 

goto 28 

rem datei voll 

print "[Cclr)” 

print "[CBspaceslJachtung datei ist voll 


gosub 5380 

goto 28 

rem beenden des programms 

print "[clr)” 

print "das programm wird geloescht” 
print "haben sie die daten 
abgespeichert” 

print 

input "soll gelosscht werden J/n”;sS 
if s5=-"n" then 20 


dD sys 64738 
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Autostart mit 


System: C64/Laufwerk 
Typ; Utility 
Sprache: Basic 


Programme ohne SYS- oder RUN- 
Befehl zu starten, ist Sinn und 
Zweck des „Autostart-Creators“. 
Ein durch dieses Utility gespei- 
chertes File lädt das zu bootende 
Programm nach und startet es. 
Nach dem Abtippen, Speichern 
und Starten erscheinen Titelbild 
und Programmerklärung. Drückt 
man eine Taste, geht es weiter. Ist 
das zu bootende Programm in Ba- 
sic geschrieben, gibt man „B" ein, 
für Programme, die per SYS ge- 
startet werden, ein „S" und fürs Di- 
rectory „D“. Je nach Eingabe ge- 
langt man in verschiedene Unter- 
programme: 


„Autostart-Creator“ er- 
zeugt ein kleines, auf 
Diskette 1 Block gro- 

Bes File. Lädt man 
dieses Programm mit 


LOAD“Name“,8,1, star- 
tet es automatisch ein 
vorher definiertes Ba- 
sic- oder Maschinen- 

programm. 


„D": Zeigt das Inhaltsverzeichnis. 
„B"; Der Computer fragt nach 
dem Namen des Programmes, das 
nachzuladen ist. Es darf maximal 
16 Buchstaben lang sein. Danach 


ist der Name des zu erzeugenden 
Autostart-Files einzugeben. Die 
Datendiskette muß bereits im 
Laufwerk liegen, da „Autostart- 
Creator“ nach dieser Eingabe das 
Start-File auf den Datenträger 
schreibt. 


„Ss: Es ist wie bei „B“ der Name 
des zu bootenden Files einzuge- 
ben. Danach muß man eine Zahl 
entsprechend des SYS-Befehls 
eingeben, mit dem man dieses 
Programm bisher gestartet hat. 
Danach gibt man, analog zu „B*, 
den Namen des Auto-Boot-Files 
ein. Die anlaufende Floppy signa- 
lisiertt, daß „Autostart-Creator" 
das 1 Block große File auf Diskette 
speichert. 


Dietmar Split EEE 


rem #*#Hunnnunnnnunuu nn uuune 
rem *#*%* auto-start #*#=» 
rem *#*** creater RER 
rem Htmmennnuuunauenannnn 
rem * written in er 
rem * 1986 
rem * by 
rem * distmar splitt 

“ 

* 


rem 7144 asperg 
rem „nn... 


poke 53280,0:poke 53281,2 

print "[Cclr,2down,wht]J” spc(8)"auto- 

start creater” 

print spc(8)"Cb1lk] 

print spe(6)”"Cdown,wht] written by 
dietmar splitt” 

print spc(6)”Chblk] 

print spc(11)”Cdown,cbm 8] <c> 1986” 

print "C2down,blk,Zrightlsetzt vor ein 
basic oder maschinen-” 

print "[2spaces]programm ein 
ladeprogramm, mit nur[l2spaces)"” 
print "[2spaces]i1 block auf der 
diskette.” 

print ” [down] das gewuenschte prg. 
wird also [rvs]sofortloff]” 

print "[2spaces]Jnachgeladen und dann 
gestartet !” 

print spc(7)"Cyel,3down]lbitte eine 
taste druscken !!” 

poke 198,8:wait 198,1 

print "[elr]” spc(4)”"Ccbm 6,downlwie 
wird ihr programm gestartst ?” 
print spc(4)”Cchm 6] 
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD”: 
print :print 

print spc(6)"Cblk,down, rvsIbloff] 
asiczeile / programm ??" 

print spc(6)"Cblk,downloder [rvs]s 
[offlys-befehl ??” 
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Bd print spc(6)”[Lwht , 3down)bitte 


eingeben: [yel]J(b oder s)" 

print spc(22)”Cchbm B,down] 
(d=-directory) 

if z=5 then 597 

for q-6002 to 6215:poke q,1:next q 
restore :a=-®d:2=-5:for y=6016 to 6016+ 
135:read x:a=atx:poke y,x 

next y:if a<>16323 then print "C[clr, 
wht]fehler in datas !!”:end 

poke 198,8 

get sp$:if sp$=""” then 518 

if sp$=-"s” then 516 | 
if sp$=-"b" then 1008 

if sp$-"d” then goto 3499 

goto 508 


:rem masch .sprache-start | 
z 


print spc(6)”[down,yel,rvs]sys-befehl 
48» 

print ”"Cblk,48shift *J” 

print spc(4)”"Cdown,yel]J wie heisst ihr 
programm ??” 

input "[2right,yelJ(max. 16 zeichen)"; 

name$ 

b=len (name$) 

poke 6935,b 

for p=1 to b:z=-asc ( mid$ (name$,p,1)) 

poke 5999+p,z 

next p 

print "[2right,down,yellwie lautet die 
startadresse ??” 

input adresse 

ab"-ad/256:ab"int (ab) 

ac-ad-ab*256 

poke 6864, ac:poke 6065,ab 

input "Cright,down,yelJwie soll das 
lade-prg.heissen ???????7?";s$:print : 

print 

print "[yel,rightlJes wird nun mit”: 

print 

print "[yel,rightJload’’”ss”’’,8,1"”: 

print 


print ”"Cright, yellgeladen und 


"C2Zright,down,yellwie lautet der 


automatisch gestartet I” name ihres programms ??” 
625 : 1858 input ”"[2right, yell(max 16 zeichen)”; 2955 
626 : name$ 
627 :rem schreiben auf disk 1068 b=len (name$) 878 
628 : 1878 poke 6897,b 19044 
629 : 1888 For p=1 to b:z=asc ( mid$ (name$,p,1)) 3004 
630 : 1898 poke 5999+p,z 1958 
652 open 1,8,1,s$ 19074 1108 next p 290 
668 print#1,chr$ (190);:rem low byte 1149 1118 input "Cright,doun,yellwie soll das 6023 
678 print#1,chr$ (2);:rem high byte 977 lade-prg.heissen ???????7?”,;s$:print : 
688 For m-6008 to 6015:g*-peek (m) 2302 print 
7882 print#1,chr$ (g); 1081 1128 print "C[right,yelles wird nun mit:*: 24B6 
718 next m 284 print 
725 for m"-6016 to 6077:g-peek (m) 2503 1125 print "[right ‚yellload’’”s$"”’’,8,1”: 2689 
726 print#1,chr$ (g); 1081 print 
727 next m 284 1138 print "[right, yellgeladen und 3885 
728 close 1 258 automatisch gestartet I” 
738 print :print "C[Cbik,rightidisk status:”" 1891 1133 : 
735 open 5,8,15:input#5,a,b$:print a,b$ 2243 1134 ; 
737 close S:for o=-1 to 2082:next :goto 142 2391 1148 :rem schreiben auf disk 
738 : 1142 : 


open 2,8,1,s$ 


:rem datas fuer ladeprogramm 


1178 print#2,chr$ (178);:rem low byte 1282 
733 3 1188 print#2,chr$ (2);:rem high byte 979 
808 data 173,134,2,133,90,173,33,288,141, 4536 1198 For m-69808 to 6015:g-peek (m) 2392 
1,8 1208 print#2,chr$ (g); 1083 
802 data 169,8,170,168,32,186,255,169,1, 7589 1218 next m 284 
162,199,168,2,32,189,255,169,2,32,213 1248 For m-6078 to 6151:g-peek (m) 2514 
805 data 255,169,131,141,2,3,169,16%4,141, 6349 1258 print#2,chr$ (g); 1883 
3,3,165,98,141,134,2,76,8,0 1268 next m 284 
810 data 139,227,206,2,124,165,26,167,228, 5411 1278 close 2 260 
167,134,174 1388 print :print "[blk,rightldisk status:" 1891. 
815 data 173,134,2,133,90,173,33,208,141, 4596 1318 open 3,8,15:input#3,a,b$:print a,bS 2235 
134,2 1358 close 3:for 0-1 to 200@:next :goto 148 2387 
817 data 1693,8,170,168,32,186,255,169,1, 7782 20008 : 
162,178,160,2,32,189,255,169,0,32,213 2010 : 
820 data 255,169,131,141,2,3,169, 16%, 141, 6138 2028 : 
3,3,165,90,141,134,2 2038 :rem directory einlesen 
825 data 144,3,76,249,224,134,45,132,46, 7835 2040 :rem (routine aus 64’er 1/87) 
32,89,166,76,174,167,139,227,194,2 2050 : 
8308 data 124,165,26,167,228,167,13%4, 174 3651 2060 : 
9008 : 2070 : 
918 : 3488 print "Cclr]":gosub 3598 1158 
9208 : 3458 poke 198,8:wait 198,1:goto 249 1938 
930 : 3588 open 4,8,8,"$”:poke 781,4:sys 65478: 2927 
948 :rem basic-start get a$S,as 
350 : 3585 get a$,a$:if st=-64 then sys 654B4: 3867 
S608 : elose 4:return 
1228 print spce(6)”"[doun,yel,rvsIbasic !1* 1416 3518 get aS,b$S:print "[Lleft)” asc (a$+chrS 4014 
1818 print "Cblk,40shift *J"” 2854 | (B))+256*asc (b$+chr$ (0)); 
1028 For q-6008 to 65015:poke q,i:next a 2112 3528 get a$:print a$;:if a$<>"" then 3529 2017 


print :goto 3585 


Auch wenn 
es uns nicht 

so ergeht 
wie diesem 
Kollegen: 


Die Redaktion 
freut sich über Ihren Leserbrief! 
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Praxis Listing 


Vizawrite-Checker 
im Kampf gegen Tippfehler 


System: C64/Laufwerk 
Typ: Anwendung 
Sprache: Basic/ASM 


VCS macht Rechtschreibfehlern 
den Garaus. Dieses Programm te- 
stet anhand eines eigenen Wort- 
schatzes Textfiles des Vizawrite- 
Editors mit maximal 32 Blocks 
Größe auf Fehler. VCS besteht 
aus drei Listings: 

1.) WSZ-Maker: 

Will man VCS das erste Mal nut- 
zen, muß man eine Wortschatzda- 
tei anlegen. „WSZ-Maker" initiali- 
siert die Diskette für dieses File. 
2.) VCS-Start: 

Lädt VCS-Main nach und startet 
den Rechtschreib-Checker. 

3.) VCS-Main: 

In Maschinensprache geschrie- 
ben vergleicht „VCS-Main" Daten 
aus Vizawrite-File mit Daten der 
Wortschatzdatei in kürzester Zeit. 


So funktioniert VCS 
RER. 


Nach Start des Files „VCS-Start" 
lädt das Programm den Wort- 
schatz nach. Danach drückt man 
Funktionstaste l und gibt den Na- 
men eines beliebigen, maximal 32 
Diskettenblocks großen, Viza- 


VCS — Vizawrite 
Check System — prüft 
mit Vizawrite 64 erstell- 
te Texte auf Fehler. 
Den Wortschatz er- 
stellt man individuell 
per eigenem Wort- 
schatzprogramm. 


write-Textfiles ein. VCS lädt diese 
Daten und vergleicht jedes Wort 
des Viza-Textes mit den Daten sei- 
nes Wortschatzes. Erkennt VCS 
keinen Zusammenhang zwischen 
Textfile-Wort und Wortschatzda- 
ten, deutet das daraufhin, daß: 

1.) entweder dieses Wort falsch 
geschrieben wurde 

2.) oder sich dieses Wort nicht im 
Wortschatz befindet. 

Zu 1.) Fehler korrigiert man di- 
rekt mit VCS. 

Zu 2.) Ist das beanstandete Wort 
richtig geschrieben und bisher 
nicht im Wortschatz, muß man ent- 
scheiden, ob der neue Begriff in 
die Wortschatzdatei aufgenom- 
men wird oder ob man den Text 
weiterprüft. Funktionstaste 1 steht 


a9,00,85,9d,a2,08,38,20, 
ba,ff,a9,05,a2,F9,a8,c5, 
20,bd,ff,a9,00,32,00,a0, 
30,20,d5,ff,a9,a0,a2,e®, 
a0,00,85,fe,86,fc,84,Ffd, 
84, fb,b1,fd,S1,fd,b1,fb, 
91,fb,c8,d®,f5,e6,fe,s6, 
fc,d®,ef,78,a9,35,85,01, 
58,a2,00,bd,7Ff,c6,9d,ae, 
eb,e8B,e0,06,d0,f5,a2,00, 
bd,85,c6,9d,ef,eb,eB,e®, 
06,d0,f5,a2,8c,30,c6,86, 
fb,B4,fc,a2,28,a80,00,84, 
£fd,86,fe,a2,08,b1,fb,31, 
fd,c8,d0,f9,e6,fc,e6,fe, 
ca,d®,f2,ad,18,d0,29,f1, 
09,03,8d,18,d8,28,ec,c“, 
a9,27,a0,c5,28,1e,ab,a9, 


490,20,00,39,F8,06,39,48, 
07,39,68,05,c8,c®,28,d®, 
f2,18,30,00,a2,18,20,F0, 
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für Übernehmen, F7 übergeht den 
Begriff. Da maximal 4000 Wörter 
im Wortschatz stehen dürfen, sind 
selten benutzte Wörter im Wort- 
schatz zu vermeiden. Ist der Text 
überarbeitet, speichert VCS das 
editierte Text-File unter Namen 
„VCS.K" ab. Mit „Q" beendet man 
Arbeiten mit VCS, wobei erweiter- 
te Wortschätze auf Wunsch ge- 
speichert werden. 


Wort für Wort auf Disk 
EEE ae EFT 


Auf der Diskette zum Heft ist 
außer den abgedruckten Pro- 
grammen noch das Wortschatz- 
Datenfile für VCS vorhanden. 
„VCS-Main“ ist als kombinierter 
Hexdump-Basiclader veröffent- 
licht. Wie man mit dieser Art 
Listings umgeht, steht auf Seite 96. 
Tippt man „VCS-Main" als Basicla- 
der ab, speichert man den erzeug- 
ten Maschinencode nach RUN mit 
den Befehlen: 

POKE 43, 0: POKE 44,192 

POKE 45,140: POKE 46,206 
save,main.vcs",8 

Wird der Checker benutzt, so 
muß man als Startadresse c000 
eingeben. 


(Dirk Ronnau) ME 


£ff,a9,cd,a®,c5,28,l1e,ab, 
a9,a0,8d,e7,07,a9,91,a2, 
c5,85,fb,86,fc,a2,0c,a®, 
0b,86,fd,B4,fe,20,ee,c3, 
20,7d,c2,20,6f,c4,c9,85, 
f0,2c,c9,44,d0,203,4c,80, 
3.069,31, £0,03,4e,cb;69, 
20,14,c4,a9,22,a0,c6,20, 
le,ab,28,6f,c4,c9,4a,d®, 
06,20,2b,c3,4c,e2,fc,c9, 
Ye,f®,f9,4c,ea,c®d,20,14, 
c4,39,03,a0,c5,20,1e,ab, 
a0,00,20,cf,ff,99,8b,c6, 
c8,c9,0d,d0,f5,88,84,03, 
a2,08,80,008,20,ba,ff,aS, 
03,22,8b,a0,c6,20,bd,Ff, 
a9,00,22,00,30,08,20,d5, 
ff,86,2d,84,2e,20,72,c2, 
a5,90,c9,40,F0,13,20,14, 
c4,a9,0f,a0,c5,20,1e,ab, 
28,6f,c4,20,72,c2,4c,cb, 


c150 c0,20,75,c4,a2,00,86,3b, 3d c3bB 1298 data 28,c7,8d,00,c7,90,03,ee, ı2 
c158 44® data a9,55,a2,05,85,fb,86,fc, 45 ce3c® 1210 data 21,c7,68,18,65,03,a8,30, 04 


c168 458 data a2,0c,a0,0b,86,fd,84,fe, 39 ce3c8B 1220 data Ob,4c,d2,c3,20,a8,Ff,c8, 7d 
c168 468 data 29,ee,c3,a9,00,a2,08,85, 2£ c3d®O 1238 data d®,02,e6,b1,c4,2d,d®,ba, ae 
c170 470 data b9,86,b1,a0,c6,a2,00,c8, 97 c3d8 1240 data a5,2e8,c5,b1,d0,b4,39,08, 47 
c178 488 data d®,22,86,b1,c4,2d,d®,03, Sf c3e® 1250 data 20,ae,ff,a9,01,20,c3,ff, 6d 
c1808 4908 data a5,2e,c5,b1,d0,03,4c,37, 6c c3e8 1268 data 20,72,c2,4c,b5,c0,89,080, c2 
c188 508 data c3,b1,b9,48,290,1c,c4,68, d9 c3f® 1278 data 85,03,18,a6,fd,a4,fe,20, 2a 
c198 S51® data c9,01,90,87,c9,1b,b0,03, aa c3fB 1288 data fO,fF,a4,03,a2,14,b1,fb, dS 
c198 5208 data 4c,cc,c1,c9,41,90,07,c9, 68 c4H2B 1290 data 20,16,e7,c8,ca,d®,Ff7,84, 95 
c1a® 538 data 5b,b0,03,4c,cc,c1,c9,78, be c4808B 1308 data 03,e6,fd,e6,fd,a5S,fd,c9, c® 
claB 548 data 90,07,c9,7d,b9,803,4c,cc, ®1 c41® 131® data 12,d0,df,60,18,a2,14,a0, ac 
c1bd® 550 data c1,c9,65,f0,17,c9,76,f0, 42 c418 1328 data 00,40,F0,ff,86,30,36,3b, 5a 
c1b8 560 data 13,e8,02,30,b8,86,03,84, 58 c4H20 1338 data Sd,40,05,28,e0,28,d®,18, e3 
c1c® 5708 data 02,20,d3,c1,a4,02,20,72, 44 cH2B 1340 data a2,00,bd,78,04,9d4,58,04, 9a 
c1c8 588 data c2,4c,75,c1,9d,20,07,e8, c6 c438 135® data e8,ed,f0,d0,f5,a2,27,a9, £93 
c1d® SS data 4c,77,c1,39,00,82,30,85, £7 c438 1369 data 20,9d4,40,05,ca,10,fa,e8, 89 
c1d8 600 data Fb,86,fc,a0,00,b1,Fb,cd, 4d c4H48 1378 data 86,3b,36,3c,60,a2,f1,a9, ba 
cie® 610 data 20,07,F0,0Ff,c8,d@,f6,a5, 42 c4H4B 1388 data 20,9d,4f,04,ca,dd,fa,ad, 22 
cle8 620 data fc,cd,01,30,f0,25,e6,fc, b3 ceHS®O 1390 data 27,40,39,c4,a9,01,a2,08, 92 
c1if®O 638 data 4c,db,c1,98,48,8%4,Fb,a®d, b93 cHSB 1408 data a0,0f,20,ba,ff,a9,07,a6, ae 
c1f8 648 data 90,b1,fb,d9,20,07,d0,0b, 4F c4H6® 1410 data fd,a4,fe,20,bd,ff,20,c0, 54 
c20®8 650 data c8,c4,03,d0,f4,b1,Fb,d®, a5 cH6B 1420 data Ff,a9,01,20,03,ff,60,20, 3b 
c2088 668 data 02,68,60,68,20,00,84,fb, bb c47® 1438 data e4,ff,f®,fb,60,a2,c7,ad, bf 
c210. 5670 data aß,4c,e4,c1,a9,03,84,20, Sı c478 1440 data 02,80,00,c7,8e,01,c7,60, a3 
c218 6808 data d0,20,6F,c4,09,85,F®,65, 83 c4H88 1450 data a9,93,20,16,e7,a9,9e,20, dc 
c220 630 data c9,88,f0,48,c9,04,F8,50, 33 cH88 1469 data 16,027,89,01,a0,c6,a2,05, 4e 
c228 7008 data 4c,19,c2,ad,00,30,ae,®1, c5 ce4Sß 1478 data 20,bd,ff,a9,01,a2,08,a0, 81 
c230 718 data 380,e0,9F,d0,13,20,72,c2, c23 c4S8 1488 data 00,20,ba,Fff,20,c0,ff,a2, 59 
c238 7280 data 20,14,c4,a9,43,30,c6,20, 78 cHaß® 1498 data 01,20,c6,ff,a0,05,84,03, c4 
c2&48 738 data le,ab,20,6F,c4,4c,6c,c2, 45 cHa8 1508 data 20,cf,ff,aa,a4,03,88,d0d, ff 
c248 748 data 85,fb,86,fc,a0,00,b9,20, “4d c4b® 1518 data f5,20,cf,ff,a4,90,d0,23, 65 
c250 758 data 07,91,fb,c8,c4,03,d0o,f6, 43 cHbB 1528 data 28,cd,bd,a9,20,20,16,87, 97 
c258 760 data a9,00,91,fb,e6,03,18,ad, 8c cHc® 1538 data 20,cf,ff,85,03,c9,00,f0, 16 
c260 770 data 00,30,65,03,90,03,ee,®1, ab c4icB 1548 data 88,85,03,20,16,e7,4c,c0, 83 
c268 7808 data 30,84,00,30,29,00,8d4,20, 89 cHd® 1558 data c4,a9,0d,20,16,e7,a0,03, dS 
c270 798 data d®,60,a9,20,a2,27,9d,20, ef c4HdB 1568 data 4c,a6,c4H,20,cc,ff,a9,01, bf 
c278 808 data 07,ca,10,Ffa,60,39,01,a2, 6b c4de®ß 1578 data 208,c03,ff,20,6f,c4,20,7d, Ba 
c280 818 data 27,3d,20,db,ca,10,fa,60, 23 c4teB 1588 data c2,4c,85,c9,28,44,e5,a2, 5a 
c288 820 data ac,01,c7,c0,cf,d®,13,20, a4 cHf®O 1592 data 08,23,07,3d,20,d8,9d4,00, BB 
c230 8308 data 72,c2,20,14,c4,a9,64,a0, 9b c4HfB 15608 data d9,9d,00,da,Sd,08,db,eB, F2 
c298B 840 data c6,20,1e,ab,20,6F,c4,4c, 42 c500 1610 data d®,F1,60,c6,49,4c,45,4e, Be 
c2a® 850 data 6c,c2,a2,00,24,02,98,38, 4d cSß8 1620 data 41,4d,45,20,32,20,00,c6, 6d 
c2Paß 860 data e5,03,b9,04,c6,b1,a2,01, 42 cS51® 1638 data 49,40,45,4e,41,4d,45,20, ®d 
c2bO 870 data a8,a9,a®,91,b0,8a,48,a5, d7 cS518 1649 data 4e,49,43,48,54,20,47,45, 36 
c2b8 880 data 03,48,20,72,c2,20,14,c4, 5b c520 16508 data 46,55,4e,44,45,4e,00,12, ei 
c2cd 890 data a9,690,20,c6,20,1e,ab,ad, 30 c528 1668 data 13,0e,9e,20,20,20,20,20, 83 
c2c8 900 data 20,20,cf,Ff,c8,c9,0d,d®d, ed cS530 1678 data 20,20,20,20,3e,20,d6,49, ab 
c2d® 918 data f8,84,03,ad,20,c7,ac,®1, af c538 1688 data 5a,41,43,48,45,43,4b,20, 41 
c2d8B 920 data c7,85,9e,84,9F,a0,00,68, F3 cS40 1698 data d3,59,53,54,45,4d,20,3c, 55 
c2ed 9338 data 91,9e,c8,b9,22,07,91,9e, 10 c548 1708 data 20,20,20,20,290,20,20,20, 08 
c2eB 9408 data c8,c4,03,d0,Ff6,a9,00,31, F4 cS50 1718 data 20,20,20,92,00,12,9e,20, fa 
c2Fo® 958 data 9e,e6,03,18,ad,08,07,65, bi cS58 1728 data c6,31,20,92,20,3d,28,b8, 6e 
cerf8 9698 data 03,8d4,00,c7,30,03,ee,®81, 29 c560 17308 data 42,45,52,4e,45,48,4d,45, 06 
2300 970 data c7,68,c9,01,d0,02,e6,b1, 28 cS6B 1748 data 4He,12,20,06,37,20,92,20, ıF 
c308 988 data 4o,6c,c2,a2,f7,a®,c5,86, 35 c570 1758 data 3d,20,57,45,49,54,45,52, 17 
c310 998 data fd,B4,Ffe,20,54,c4,a2,08, 80 c578 1768 data 20,20,20,20,20,12,20,c3, 6b 
c318 1000 data 20,ba,ff,a9,05,a2,f3,a8, 78 c588 1778 data d2,20,92,20,3d,29,4d,41, Sc 
c328 1018 data c5,20,bd,Ff,a9,00,a2,30, 7d c588 1788 data 52,4b,49,45,52,45,4e,20, 46 
c328 1928 data 85,fd,86,Ffe,a9,fd,ae,0®d, 6b c5938 1798 data 05,12,9e,20,c6,31,280,92, 93 
c330 1038 data 30,ac,01,30,4c,d8,ff,20, a9 c5938 1898 data 20,3d,290,d4,45,58,54,20, 51 
c338 1040 data 14,c4,29,06,20,c6,20,1e, d® cS5a®d 1818 data 4c,41,44,45,4e,12,20,c4, a2 
c340 1050 data ab,20,45,c4,20,6Ff,c4,c9, b8 c5a8B 1828 data 20,20,92,20,3d,20,c4,49, 89 
c348 1069 data 4a,f®,0a,c9,4e,d9,f5,20, ef c5b® 1838 data 52,45,43,54,4f,52,59,20, 32 
c350 1078 data 72,c2,4c,b5,c0,20,75,c4, 38 cSbB 1840 data 20,12,20,d1,20,20,92,20, d® 
c358 1080 data a2,fe,ad,cS,86,fd,84,Ffe, 8F ceSc® 1858 data 3d,20,d1,55,49,54,290,20, Be 
c368 1098 data 20,54,c4,a9,08,85,b1,a9, 72 cScd 18608 data 20,20,20,20,05,12,20,20, 3 
c368 11028 data 01,22,08,a0,61,20,ba,ff, cH c5d® 1870 data 20,20,20,20,20,20,28,43, 85 
c37® 111® data a9,05,22,00,a9,c6,20,bd, B2 cSd8 1888 data 29,29,04,c3,d2,20,d3,4Ff, 3£ 
c378 1128 data FFf,20,c0,Fff,a9,08,20,b1, af c5e® 1890 data 46,54,29,20,20,d8,c9,20, e3 
c380 1130 data ff,a9,61,20,93,Ff,a9,56, 7e c5eB 1300 data 31,39,38,36,20,20,20,20, Fa 
c388 1140 data 20,a8,Fff,a9,ff,20,aB,Ff, 55 cSf® 1910 data 20,20,20,20,20,32,00,53, 3c 
c393® 1150 data a0,00,b1,b0,c9,a0,d0,34, 65 cSfB 1922 data 3a,57,4f,52,53,5a,53,3a, f2 
c3988 116® data 84,03,ad,01,c7,ae,00,c7, 7e c602 1938 data 56,43,53,2e,4b,24,cb,4Ff, da 
c3a® 1170 data a0,20,85,39F,86,9e,b1,9e, B® c608 19408 data 52,52,45,4b,54,55,52,20, 2b 
c388 1188 data 48,08,b1,9e,f®,06,20,a8, f5 c61® 1958 data 53,50,45,49,43,48,45,52, ed 
c3b® 1198 data Ff,c8,d®,f6,c8,98,18,6d, ec c618 1960 data 4e,20,3F,20,28,4a,2f,4e, ®c 
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1978 
1980 
1990 
2008 
2018 
2020 
2030 
2040 
2058 
2068 
2070 
2088 
2090 
2100 
2110 
2120 
2138 
2148 
2150 
2160 
2170 
2188 
2190 
2208 
2210 
2220 
2230 
2240 
2250 
2268 
2270 
2280 
2230 
2308 
2310 
2320 
2338 
2340 
2350 
2369 
23708 
2380 
2398 
2400 
2410 
2420 
2430 
2440 
2450 
24608 
2470 
2488 
2490 
2508 
2510 
25208 
2538 
2540 
2550 
2569 
25708 
25808 
2598 
2698 
2618 
2629 
26308 
2640 
2650 
26698 
2670 
2688 
26908 
2708 
2710 
27208 
2730 


29,00,47,4f ,52,54,53,43, 
48,41,54,5a,280,4e,45,55, 
29,53,50,45,49,43,48,45, 
S2,4e,20,3f,290,28,4a,2f, 
4e,29,08,4b,45,49,4e,20, 
53,509 ,45549,43 98.457502, 
580,4c,41,54,53,20,4d,45, 
48,52,20,46,52,45,49,00, 
3d,3e,20,00,cb,4f,52,52, 
45;45,754,.55:52.53:50 45, 
49,43, 419)45,52,20,49,53, 
54,20,56,4f,4c,4c,80,b6, 
bB,2c,bc,2a,a5,ba,bb,3c, 
a9,c0,b9,00,3c,66,66,6e, 
60,62,3c,00,00,00,3c,06, 
3e,66,38,00,00,60,60,7c, 
66,66,7c,00,00,00,3c,6®, 
60,60,3c,00,00,06,26,3e, 
66,66,3e2,00,00,08,3c,66, 
7e,60,3c0,208,008,0e,18,3e, 
18,18,18,00,00,00,38,66, 
66,3e,06,7c,8008,60,60,7c, 
66,66,66,20,00,18,20,38, 
18,18,3c,00,00,06,20,06, 
06,26,06,3c,00,60,60,6c, 
78,6c,66,00,00,38,18,18B, 
18,18,30,820,00,00,66,7F, 
7Ff,6b,63,00,00,800,7c,66, 
66,66,66,20,00,00,3c,66, 
66,66,3c,08,00,00,7c,66, 
66,7c,60,60,00,00,3e,66, 
66,3e,06,06,0080,00,7c,66, 
60,60,60,00,00,00,3e,60, 
3c,06,7c,00,00,18,7e,1B, 
18,18,0e,00,00,00,66,66, 
66,66,3e,00,08,00,66,66, 
66,3c,18,00,00,00,63,6b, 
7F,3e,36,00,00,00,66,3c, 
18,3c,66,20,00,00,66,66, 
66,3e,8c,78,00,00,7e,®c, 
18,380,7e,00,3c,30,30,3®, 
30,30,3c,08,0c,12,30,7c, 
30,62,fc,80,3c,8c,8c,®c, 
0c,8c,30c,88,08,18,3c,7e, 
18,18,18,18,00,10,30,7F, 
7fF,30,10,00,00,00,00,00, 
08,20,08,00,18,18,18,18B, 
00,00,18,00,66,66,66,08, 
00,20,200,00,66,66,fFf,66, 
ff,66,66,20,18,3e,68,3c, 
06,7c,18,020,62,66,0c,18B, 
30,66,46,00,3c,66,3c,38, 
67,66,3Ff,20,06,0c,18,00, 
00,008,00,08,0c.,18,30,3®, 
38,18,0c,20,30,18,0c,®c, 
0c,18,30,00,08,66,3c,Ff, 
3c,66,00,028,20,18,18,7e, 
18,18,00,00,00,00,20,00, 
00,18,18,30,00,00,00,7e, 
00,2002,900,00,008,20,00,00, 
200,18,18,00,008,03,06,0c, 
18,30,60,00,3c,66,6e,76, 
66,66,30,020,18,18,38,18, 
18,18,78,008,3c,66,86,0c, 
38,60,78,00,3c,66,06,1c, 
06,66,3c,00,06,0de,1e,66, 
7 ,06,06,00,7e,60,7c,®6, 
06,66,3c,00,3c,66,60,7c, 
66,66,3c,208,7e,66,0c,1B, 
18,18,18,00,3c,66,66,3c, 
66,66,3c,00,3c,66,66,3e, 
06,66,3c,00,00,00,18,08, 
00,18,00,00,00,00,18,00, 
00,18,18,30,0e,18,30,60, 
30,18,02,00,00,90,7e,00, 
78e,00,08,08,78,18,0c,®6, 
0c,18,70,00,3c,66,26,®c, 


116 Qu Mai/s7 


WW ZEOMEEOMEDLERINORBIDRE FR 


18,00,18,00,00,00,00,FF, 
Ff,00,002,00,18,3c,66,7e, 
66,66,66,00,7c,66,66,7c, 
66,66,7c,00,3c,66,60,60, 
60,66,3c,00,78,6c,66,66, 
66,6c,78,00,78,60,60,78, 
60,60,7e,00,7e,60,60,78, 
60,60,60,00,3c,66,60,6e, 
66,66,3c,00,66,66,66,7e, 
66,66,66,20,3c,18,18,18B, 
18,18,3c,08,1e,8c,8c,®c, 
0c,6c,38,00,66,6c,78,70, 
78,60,66,00,60,60,60,6®, 
60,60,72,08,63,77,7F,6b, 
63,63,63,00,66,76,7e,7e, 
68e,66,66,00,3c,66,66,66, 
66,66,30,00,70,66,66,7c, 
60,60,60,00,30,66,66,66, 
66,3c,08,08,7c,66,66,7c, 
78,6c,66,90,3c,66,60,3c, 
06,66,30,08,7e8,18,18,18, 
18,18,18,00,66,66,66,66, 
66,66,3c,00,66,66,66,66, 
66,3c,18,00,63,63,63,6b, 
7E,77,63,00,66,66,3c,18, 
3c,66,66,00,66,66,566,3c, 
18,18,18,00,78e,06,0c,18, 
30,690,78,008,ff,e7,81,e7, 
e7,e7,f1,ff,83,99,99,83, 
87,33,933, ER ;FE FE ,ER,FF, 
EfF,e7,87,££,33,33,cc,cc, 
33;,33,cc,cc,FF,FfF,63,9F, 
gFf,9Ff,c3,ff,00,00,00,00, 
00,00,00,00,F0,f0,F0,F0, 
£fo,fF0,f0,f0,00,00,20,00, 
EF,FE,FF,FF,FF,00,00,00, 
00,200,00,00,00,00,00,00, 
00,00,00,ff,66,20,3c,06, 
3e,66,38,00,ff,fil,e7,cl, 
e7,e7,e7,ff,03,03,03,03, 
03,03,03,03,00,00,08,00, 
c67c6,33,33,ff,ff,99;80, 
88,34,90,fF,£f,£9,£9,c1, 
93,33; c1;ff,FF5a7; Ff,c7, 
e7,87,c3,ff,FfFf,ft,cı,9F, 
c3,23,83,ff,Ff,fP,c3,93, 
81738503, FFJEr;fE,939;99, 
99,39,c1,Fff,ff,e7,c3,81, 
e7,27,27,e7,00,00,00,1fF, 
1f,18,18,18,Ff,fFf,83,99, 
99,83,9Ff,9Ff,00,00,00,Ff, 
£fFf,18,18,18,18,18,18,f8B, 
f8,18,18,18,c0,c0,c®,c®, 
c8,c0,c0,c0,e8d,ed,ed,e®, 
ed,ed,e0,e0,66,20,3c,66, 
66,66,30,00,ff,ff,00,00, 
00,00,00,00,66,00,00,66, 
66,66,3e,00,66,18,3c,566, 
78,66,66,00,66,30,66,66, 
66,66,3c,00,66,20,66,66, 
66,66,3c0,08,3c,66,66,6c, 
6e,66,6c,60,18,18,18,f8, 
f8,00,00,008,f0,F0,F0,F®, 
00,020,00,00,F0,F0,F0,f®, 
OF,0Ff,0f,0f,c3,99,91,31, 
96,99, 03, FF; EF;FR, E3, 3, 
c1,99,c1,fF,Fff,9F,3F,83, 
99:99,83, EFF) EE, FE, 83,88, 
SE, 36; 09, FE, ff, #3, 69,61, 
39,39, c1,Ff,FE,fE,c3,89, 
BT;SEI CHEF, LEI FL ‚87,01, 
e7,e7,e7,Ff,Ff,ff,c1,99, 
33; c1, £93;83; EE}SE ‚SE/,83, 
991 99,93, PEI FL. a7 ER,E7, 
e7,e7,c3,ff,ff,f9,ff,Eg, 
E93, 68,23, 03, FE) IE ‚BE, 33, 
87,33,99, ff}, ££),07 ‚87,87, 


cafd® 3518 data e7,e7,c3,Fff,ff,ff,39,80, dd cd4B 4268 data 80,88,9c,ff,99,99,c3,e7, 71 
caf8 35208 data 80,94,9c0,Ff,Ff,ff,83,99, 73 cedS® 4270 data c3,99,99,ff,99,99,99,c3, 9a 


cb0® 35308 data 99,99,99,Ff,Ff,Fff,c3,39, c4 cd5S8 4288 data 87/,087,87,£f,81,29,€3,87, 7c 
ch®8 3540 data 99,99,c3,ff,ff,ff,83,99, ae cdß® 4290 data cf,9f,81,Fff,70,78,7c,7e, a8 
cb1® 3558 data 99,83,9Ff,9F,ff,ff,cı1,399, 3e cd68 4308 data 7c,78,70,88,0e,1e,3e,7e, 24 
cb18B 3569 data 33,cr,29,19, Fr ,1f,83,89, c2 cd7® 4318 data 3e,1e,8e,00,18,3c,7e,ff, 89 


cb20 3570 data 9f,9f,9F,Ff,ff,ff,ci1,9Ff, c2 cd78 4320 data 00,00,00,08,cc,cc,33,33, ®® 
cb2EB 3588 data c3,f9,83,ff,ff,e7,81,e7, ®1 cd8® 4330 data cc,cc,33,33,18,30,7e,ff, Sb 
cb3® 3598 data 27,e7,Ff1,Ff,Ff,fFf,39,99, F2 cdBB 4348 data 78,3c,18,00,Ff,Ff,Ff,Ff, 59 
cb38 3608 data 99,99,c1,ff,ff,ff,99,99, c2 cd93@ 4350 data FE,FF,FF,FF,OFf,OFf,0F,oF, 00 
cb4Q  361® data 99,c3,e7,Ff,ff,ff,9c,94, c6 cd98 4368 data OFf,OF,OFf,Of,Fff,Ff,ff,Fff, 00 
cb4B 3628 data 88,c1,c9,Fff,ff,Fff,39,c3, SE cda®d 4378 data 00,00,00,00,00,FFf,FF,FFf, ©1 
cb5® 3638 data e7,c3,99,Fff,Fff,ff,39,99, be cdaß 380 data FE,FF,FF,Fe,FF,Fe,EF,EF, 00 
cb58 3649 data 99,c1,f3,87,ff,ff,81,F3, do cdb® 4390 data Ff,fFf,FF,00,39,Ff,c3,f9, 62 
cb68 3658 data e7,cf,Bil,Fff,c3,cf,cf,cf, Se cedb8B 4408 data c1,399,c1,ff,7c,00,7c,00, e? 
cb68 36608 data cof,cf,c3,Fff,f3,ed,cf,83, 16 cdc® 4418 data 7c,00,7c,00,Ffc,fc,fc,fc, F7 
cb7® 3678 data cf,9d,03,ff,c3,f3,f3,F3, 07 cedcB 4420 data Fo,fc,fc,fo,ff,ff,ff,ff, 80 
ch78 3688 data F3,Ff3,c3,ff,ff,e7,c3,81, le cdd® 4438 data 33,33,cc,cc,18,3c,7e,18, 42 
chb882 3690 data e7,e7,e7,e7,ff,ef,cf,B0, Sf cdd8 444® data 18,7e,3c,18,1e,3c,78,F0, 28 
cb88 3708 data 80,cf,ef,Fff,ff,Ff,ff,ff, al cded 450 data Of,1e,3c,78,00,04,06,7f, 39 
cb3®8 371® data Ff,fFf,Ff,ff,e7,e7,e7,e7, 00 cde8 H468 data 7f,06,04,00,00,00,18,18, 7d 
cb98 3728 data ff,Ff,e7,ff,99,39,39,ff, 82 cdf® 4470 data 18,7e,3c,18,7e,ff,Fff,ff, 3d 
cba® 3730 data Ff,fFFf,Fff,ff,39,99,00,39, 67 cdf8 4480 data Ff,Ff,7e,00,ff,00,00,00, 7c 
cbaß 3748 data 00,99,99,ff,e7,c1,9Ff,c3, 04 cedß® H4S® data 00,00,00,ff,18,3c,7e,18, 44 


cbbd® 37508 data F9,83,e7,ff,9d4,99,f3,e7, 6d cedB H500 data 18,18,00,00,Ff,ff,fFf,ed, 1F 
cbb8B 3768 data cf,99,b9,ff,c3,99,c3,c7, 16 celß® 4S51® data e0d,e7,e7,e7,ff,7e,3c,18, 9e 
cbc® 3778 data 98,99,c0,Ff,Ff9,f3,e7,ff, ae cel8B 4520 data 30,7e,ff,00,ff,ff,Fff,00, bb 
chc8B 3788 data Ff,ff,ff,ff,f3,e7,cf,cf, ®c ce2d 45308 data 00,e7,27,e7,e7,e7,e7,07, £9 


cbd® 3798 data cf,e7,f3,Fff,cf,e7,f3,f3, cH ce28 4540 data 07,e7,87,e7,3Ff,3F,3F,3F, ®1 
‚cbd8 3808 data F3,e7,cf,ff,Fff,39,c3,00, 94 ce380 4558 data 3f,3F,3F,3F,1F,1f,1f,ı1F, 08 
cbed 3818 data c3,99,ff,ff,Ff,e7,e7,81, a7? ce38 4568 data 1f,1f,1F,1F,99,fFf,c3,99, c4 
cbeB 3828 data e7,e7,Fff,Fff,Fff,Ff,Ff,Fff, 9808 ce4® 4578 data 99,99,c03,ff,00,00,Fff,ff, c4 


cbf® 3838 data Ff,e7,e7,cf,ff,Ff,ff,B1, ad ce4B 4580 data ff,Ff,Ff,FFf,99,ff,Fff,39, 08 
cbF8 3840 data Ff,Ff,Ff,Ff,Ff,Fff,ff,ff, 00 ce5S® 4598 data 99,39,c1,Fff,99,e7,c3,39, Se 


ccß® 3858 data ff,e7,e7,ff,ff,fc,f9,f3, 09 ceSB 4608 data 81,99,99,Ff,99,c3,99,399, 59 
ccd8 3868 data e7,cf,9f,ff,c3,939,91,89, ea ce68 46108 data 99,99,03,£ff,99,ff,939,39, SE 
cc1® 3878 data S9,39,03,ff,e7,e7,c07,e7, a4 ce6B “620 data 99,99,c3,ff,c3,39,39,93, f4 
cc18 3888 data e7,e7,81,ff,c3,99,f9,f3, b2 ce78 465630 data 91,99,93,9f,e2e7,e7,e7,07, cc 


cc20 3898 data cf,9Ff,81,Ff,c3,99,f9,e3, f2 ce78 4649 data 07,Ff,FFf,FFf,OF,orf,0Ff,orF, 89 
cc2B 3908 data F9,39,03,Fff,F9,fl,e1,99, 73 ceBd 4650 data FF,FF,FF,FF,OF,oOF,OF,of, 08 
cc30 3918 data 80,F9,F9,FFf,81,9F,83,F9, ee ceB8 6560 data FO,FO,F0,F0,00,00,00,00, @8 
cc38 3920 data F9,39,c3,fFf,c3,39,9F,83, 6a 

cc4® 3939 data 99,39,c3,Fff,81,39,F3,e7, bB 

cc4HB 3948 data e7,e7,e7,Fff,c3,99,99,c3, e8 608808 For a-49152 to 52872 step 4156 
cc50 3950 data 99,99,c03,fFf,c3,99,99,c1, c6 8:5=B:c=®:For b=® to 7: 


cc58 3968 data F9,99,03,Ff,Ff,ff,e7,ff, ®b gosub 69049 

cc6®B 3978 data Ff,e7,Ff,Fff,Fff,Fff,e7,Ff, 88 500128 s=-s+h+l-c:c=s>255:5=-255-s 5034 
cc68 3988 data Ff,e7,e7,cf,f1,e7,cf,3Ff, 63 and 255:poke a+b,h+l:next 

cc70 3998 data cf,e7,Ff1,Ff,Ffe,Ff,Bl,Ff, Sc b:gosub 60049 

cc78 40800 data Bi,ff,Fff,ff,8f,e7,F3,r8, 24 60020 F$="pruefsumme ok”:if s(> 5699 
cc8® 4010 data F3,e7,Bf,ff,c3,39,F9,F3, cc h+l then f$="[rvs] 

ccB8 4920 data e7,ff,e7,Fff,Fff,Fff,FfFf,00, c$ pruefsummenfehler”:f=f+1 

cc90 4030 data 00,FFf,ff,Fff,e7,c3,39,81, 3e 60030 gosub 680890:next a:print ” 2267 
cc98 49490 data 99,99,99,FFf,83,39,39,83, 39a [down]”f”fehler”:end 

cca® 4050 data 99,99,83,ff,c3,99,9F,3F, ae 69040 read h$:gosub 569059:h=1* 2715 
cecaB 4060 data 9Sf,99,c3,fF,87,33,99,39, be 16:h$=midS Ch$,2) 

cch® 4078 data 39,93,87,FfF,81,9F,39F,87, 88 60850 l=asc Ch$+"x”)-48:iF 1<O 3198 
ccbB 4980 data Sf,9F,81,FFf,81,9F,9F,87, 7c or 1>22 then 69080 

ecc® H9SO data ISf,9Ff,9Ff,Fff,c3,99,3F,91, dB 60068 if 1<18 then return 19044 
eccB 4108 data 99,99,c3,Fff,39,99,99,81, de 60078 1-1-7:if 1>9 then return 1334 
ecdd 4110 data 99,99,99,ff,c3,e7,e7,e7, 76 60080 fF$="[rvsleingabefehler”:1- 2460 
cecd8 4120 data 87,87,c3,ff,el,f3,Ff3,F3, b2 :f=-F+1 

cce® 4130 data £f3,93,c7,ff,39,93,87,8f, 26 60098 print ”zeile” peek (64)* 2726 
cce8B 4140 data 87,93,99,FFf,9F,39F,9F,9F, Be eS6+peek (63)Ff$:return 


ccf® H1S® data SFf,9F,81,Fff,90,88,80,94, 82 
ccfB 4160 data 9c,90,9c,ff,39,89,81,81, ad 


cdd® 4170 data 91,99,99,ff,c3,99,99,99, bc saven des programnms nach starten 
cd®B 4182 data 99,99,c3,ff,83,99,39,83, c4 des loaders mit 

cd1®0 4190 data Sf,9F,9F,Fff,c3,99,99,99, ca 

cd18 4208 data 99,c3,f1,ff,83,99,99,83, c8 poke 43, B:poke 44,192 

cedeB 4210 data 87,93,99,Ff,c3,99,9Ff,c3, 34 poke 45,148:poke 46,206 

ced28 4220 data F9,99,c3,ff,81,e7,e7,e7, be save "name”,B 


cd3® 4230 data e7,e7,e7,ff,99,99,39,939, eB 
cd38 4249 data 99,99,03,ff,99,99,99,399, c4 
cd4B® H25® data 99,c3,e7,ff,9c,9c,9c,94, c6 


Der Name dieses Files muß „main-VCS“ sein. >» 
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if t=1 then y=22:x=6:gosub S0:print ” 
[yel] wortschatz wird geladen 
49152 

print "Cclr]”:poke 53281,8:poke 
® 


al$="[rvs,chbm a,1Bshift *,cbm s]”:a2$- 


’Cshift -,1Bspaces,shift -)” 
a3$5="[shift -]I vizacheck system 
Cshift-space, shift -)” 
a4$="[chbm z,18shift *,cbm x)” 
a$=-"[down,2Bdleft]” 


aaf-al$+ta$tad$tas+ta3s+tas+ta2$+tas+a4s 
y-22:x=18:gosub S8:print ”"[yel]l(@) der 


soft i/B7” 


x=int ‚(2l®rnd C1)):y-int: (16"rnd 333: 


gosub 98:print aa$ 


poke 646,y/2+1:get F$:if f$=""” then B 


y-22:x=6:gosub 98:print "[yel) 
hauptprogamm wird geladen” 
t=1:load "main.vcs”,8,1 


:5yS 


53280, 
SB640 


:goto 28 
38 close 1 


poke 211,x:poke 214,y:sys 58648: return 


System: C128/ Laufwerk 
Typ: Anwendung 
Sprache: Basic 


Basic 7.0 besitzt hervorragende 
Befehle, um Grafiken zu steuern. 
So auch die SSHAPE- und GSHAPE- 
Anweisungen. Sie speichern/la- 
den einen vorher definierten Gra- 
fikbereich auf/von Diskette. SHA- 
PUS ist ein Grafikeditor, mit dem 
man derartige Grafiken erstellt 
oder bereits vorhandene Shapes 
editiert. Mit Joystick steuert man 
die Funktionen und bearbeitet die 
Bilder. Mit wenig Zeitaufwand er- 
stellt man ganze Shape-Bibliothe- 
ken, die man in eigenen Spielen 
benutzt. Das Programm ist in 6 
Menü-Punkte unterteilt: 


Neben Sprites besitzt 
der C128 eine weitere 
Möglichkeit, bewegte 
Grafiken darzustellen: 
Shapes. Mit SHAPUS ist 
es ein leichtes, Figuren 
zu zeichnen und als 
Shapes abzuspeichern. 


LOAD/SAVE 
l Shapes laden 
2 Shapes speichern 
3 Directory 
4 Quit 
New/Shape/Choose 
l Shape ins Editierfeld über- 
tragen 
Shapefeld löschen 


DEREERREREEEEEEREEEEEe 


shape editor fuer den c- 


version 1.8 (c)198B6 
by 
holger prang 
wickrather str .43 


4000 duesseldorf 11 


rem HH339320 nn 17ER 


128 


gosub 42208:rem datas einlesen 


print "[2spaces]shape editor v1.8 on 
the pc128[7spaces]" 

print "[Sspaces]Jwritten by holger 
prang[ilspaces)” 


print "[Sspaces](1886)no rights 
reserved[18spaces)]” 

char 1,0,3, 
"CCECECCCECCECECCECCCCCCCCCcCcCCcCccCcCccccccE 
CCC” 


Lan 9088. donr-soft 


2 print ’Cclr,yel]”:poke 53288,8:poke 
53281,8:poke 211,2:poke 214,19:sys 


:3 print ”vizaceck systemdisk ins 
laufwerk[down]” 

4 print tab(4)”"legen und >[rvs)return 
[off]J< druecken!” 

5 get F$:if f$<>chr$ (13) then 5 

18 open 1,8,1,"worsz” 

2E® read q:if q<>-1 then print#1,chr$ (g); 


data 90,48,2,48,-1 


Arbeitet man zum ersten Mal mit VCS, ist zuvor der „WSZ- 
Maker" mit RUN zu starten. 


VCS, hier das Starterpr 


Shapes entwerfen 
auf dem 128er 


NN PEDWW DD WD 


xi 1986 
s231 


3788 
3877 
2356 
1591 
2578 


258 


amm, hilft Tippfehler v iden. 


o 


Quit 

Shapes bearbeiten 

Editieren 

LINE-Befehl 

BOX-Befehl 

Circle-Befehl 

FILL-Befehl 

CHAR-Befehl 

Shapes spiegeln 

} Shapes bewegen 

.l Alle Shapes zeigen 

‚2 Shapes mischen 

5.2.1 Gesamtes Shape mischen 

5.2.2 Teile des Shapes mischen 

5.3 Quit 

6. Shapes in Grafiken einbin- 
den 

Dieses Menü unterstützt alle Mög- 

lichkeiten zur Programmierung 

von Shapes und erleichtert die 

Erstellung eigener Bilder. 
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window 80,4,39,24 
slow 

rem -.......n....n"..monjgtsensnnnnunen 
EEE EEE I I I I N I I ET 
* 

rem Here“ 
ERNEUERT EEE EEE RER 
“ 


rem 
print "Cclr]”:poke 208,8 

print 
"UCLECCELCECCCECCCCCCCCCECCCCECI” 
print "Cshift -]I Crvs]mainmenue 
C17spaces,off ‚2spaces, shift -]” 

print 

" JECCCECCECCCCCLECCCLCCCCCCECCCCCEcK” 
print ”[cbm a] 
ECCELCCCCCCCCCCCCCCCCCCECCCCCECCECCCCcecC 
Ecbm s]” 

print "[shift -] load/save[l28spaces, 
shift -]” 

print "[shift -] new shape/chose shape 
C16spaces, shift -)” 

print "[shift -] modify shape menu 
[28spaces, shift -)” 

print "[shift -] knsad menul27spaces, 
shift -]” 

print "[shift -] show and move menu 
C19spaces, shift -)” 

print "[shift -] shape integrator 
C2lspaces, shift -]"” 

print ”"[cbm z] 
CCELCECECCCCCCCCCCCCCCCCCCCcCCCCecCcCccccce 
Ccbm x]” 

p"9:0=-14:gosub 21808 

a=-a-8:on a goto 2930,760,2020, 3260, 
1030, 3698 

end 

draw 1,8,8 to 159,2 to 159,159 to ®, 
159 to 2,0 y 

graphic 1 

rem “senbfraga*4+ssss...u.u.un.un.0e 
rem temwnnunnnnnsnueneaeneren 
sprite 1,1,8:movspr 1,24,58 
sound 1,18008,1:do 

Jrjoy (2)+1 

on j goto 430,440,450,490,460,500,470, 
510,480 

if peek (213)<>88 or J>127 then 590: 
else loop 

movspr 1,+08,-4:goto 528 

movspr 1,*+4,-4:goto 528 

movspr 1,+4,+4:goto 528 

movspr 1,-4,+4:goto 528 

movspr 1,-4,-4:goto 528 

movspr 1,+4,+8:goto 528 

movspr 1,+0,+4:goto 528 

movspr 1,-4,+8 

if rsppos (1,0)>1B1 or rsppos (1,1)> 
207 then begin 

if rsppos (1,0)>181 then a=rsppos (1, 
1):movspr 1,24,a:else a=rsppos (1,82): 
movspr 1,8,50 

bend 

loop 

rem Hrn nn0 nenn” 
EEE N I I I I I EI N II III error 
rem ##ss#se#0##e##s##hox ausmalen/spung 
ins menue###eoenn0unun nun 
rem Yen... 
EEE EEE EI ES I EI II SS SEIT 


if peek (213)<>88 then 668 

x=rsppos (1,8)-24:y"-rsppos (1,1)-58 

box: Ef ,xX,.u,Xr2,u*2,,1 

draw F,x/4+200,y/4+16 

jJ"rabs (jJ-128):goto 420 

rem 

rem #*####+##++ahbfrage shape speichern 
oder nicht*#sesossssus0» 

if peek (213)-=18 then F=1:goto 490: 

else if peek (213)-14 then F-®:goto 
428 

if peek (213)<>62 then goto 408 

graphic B,1:poke 2808,8:input "letzes 
shape speichern( J/n)”;F$ 
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3398 


if FS$S="j"” then begin 

718 input "shape nummer (1-10)";i:sshape 
s5(i),200,16,240,56 

728 bend 

730 goto 29858 


740 ram *#s#nss0sss0#»#®sengu or Chose menue 
DEREUBREREEUEREEHEEEHE EUER 


758 rem !essnnnn225nn 222220220 un3uu0 nun 
Enns 

768 print "[clr)"” 

778 print 
PUCCCCCCECCCCCCECCCCCCCCCCCCCECCCCCcCcCccEccc 
ci” 

788 print "[shift -] [LrvsiInew shaps/choose 

shape(l9spaces, off ‚5Sspaces, shift -]” 

798 print 
" JCCECCECECCCECCCCCCCCCCCCCCcCcCCccCcCcccce 
CK” 

888 print ”” 

818 print "Ccbm a] 
ECCCCCCECCCCECECCCCCCCCCCCCCCCCccCcCcCcccc 
Ccbm s)” 

828 print "[shift -,2spaces]Ineues shape in 

editor[14spaces,shift -)” 

838 print "[shift -,2spaces]clr shape 
[26spaces, shift -]"” 

848 print "[shift -,2spaces]quit[31spaces, 
shift -)” 

858 print ”[cbm z] 
CCCCCCCECCCCCCCCCCCCCCCCcCcCeCCCCcCcCcccccE 
Ccbm x)” 

860 p-19:0-12:gosub 2188 

878 if a-1®8 then gosub S49:goto 289 

880 if a=11 then begin 


898 input "welches shape (1-10)";a:s$(la)- 
908 bend 

910 goto 290 

920 : 

330 :rem *** eintragen ins editier feld ** 


-.-— ...n..n.n..... 

948 graphic 1,1:graphic ® 

958 input "modus zum uebertragen”;a 

9698 input "welches shape(1-10)";i: Fast : 
gshape s$(i),200,156,a 

978 graphic 1 

388 For x"288 to 239:for y-16 to SS: locate 
%, 

998 EEE (2)=® then next y:alse x2=(x- 
2B9)*4:y2=ly-16)9*4:box 1,x2,y2,x2+2,u2 
+2,,1:next y 

1008 next x 
1812 slow :graphic ®,1:return 


1028 rem 9+20000220808980008300080908888988808 
.. 


1830 rem move and shape menu 

1848 graphic 2,1 

1858 print "UCLCCCCCCECCCCCCCCECCCCCCCCCCCccCI” 

1868 print "[shift -,rvs] move/show shape 
menulSspaces,off ,2spaces, shift -]” 

1878 print "JECCCCCCECCCCECCCECCECCCCCCCCCcK” 

1088 print ”[cbm a) 
CCECECCCCCECCCCCCCCCCCCCCCcCcCEcCCCecccececece 
Ccbm s]” 

18938 print "[shift -] show all shapes 
C22spaces, shift -)” 

1108 print "[shift -] move/overlay shapes 
C18spaces, shift -]” 

1118 print "[shift -]I quit[33spaces, 
shift -)” 

1128 print ”Ccbm z) 
ECCCCCCCCCCCCCCCCCCCCCCCCCCCCeCcCccCccccece 
Ccbm x)” 

1138 p-8:0-18:gosub 2188 

1148 a=-a-7:on a goto 1168,1320,208 

1158 do :loop 

1168 rem *****“shouw all shapes *#rueson“ 

1178 b=-58: print "modus! ”:get key FS:f-val 
(f$S):graphic 1,1:draw 1,0,45 to 245,45 

1188 for i=-1 to 5 

1198 b=b+58:gshape s$(i),b,d,f:if b>49 then 
draw 1,b-5,8 to b-5,45 

1208 next :b=-50:draw 1,0,183 to 245,103 

1218 for i-6 to 18 

1228 b=b+58:gshape s$(i),b,58,f:if b>4S 
then draw 1,b-5,58 to b-5,183 


4058 


304 


357 


„5412 


3192 
1999 
1995 
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next 

char 1,0,6,” nr.1[l2spacesInr.2 

[2spaces]nr ‚3C2spaces]Inr ‚4[3spaces] 

ne.5” 

draw 1,245,8 to 245,45,0,56 to 245,56 

draw 1,245,56 to 245,103 

char 1,8,13,” nr.6[2spacesInr.7 
C2spaces]nr ‚Bl2spacesInr .Sl2spaces) 

nr ,18” 

char 1,0,24, "press any key!!!" 

get key a$:sprite 2,1:scnclr 1 

goto 1040 

rem kbchchuhuhchsbutslssbuskslbuhalil T=177-1 and overla 

yY shapes RR 
rem 

print "[Cclr)I” 

print 

a sie/eieininin/ninininininisinininini/njeinin/n/n/ in] ninin ng 4 
print "[shift -] [rvsJmove and overlay 
menul6spaces, off, ,2spaces, shift -]” 
print 

" JCECCECCCCECCCCCCLECCCECCCCCECCCK” 
print 

print "[chbm a] 
jsieisialeinie/ejeieisieinjsin/ninininie/n/nin/niminininin/nin/n/nie) 
[cbm s)” 

print "[shift -] move pieces in shapes 
[l12spaces,shift -]” 

print ”[shift -] move in shapes in 
shapes[9spaces, shift -]” 

print ”"[shift -I quit[29spaces, 

shift -] 

print ”Ccbm z] 
[eieieisieinin//o/eisininieinieieie/ninieininiejnja/ninininieininin} 
[cbm x]” 

p"108:0-12:gosub 2188 

a=-a-3:on a goto 1450,1590,200 

do :loop 

input ”[clr]shape nummer ‚modus” ; nu,mo 
graphic 1,1:gshaps s$(nu), 170,100,mo: 
movspr 7,170,10@:movspr 8,170,1008 
char 1,20,8, "select piece!” 

s=-2:gosub 2338:x1-rsppos (2,0):y1- 
rsppos (2,1):sleep 1 

s=-3:gosub 23308:x2"-rsppos (3,0):y2= 
rsppos (3,1) 

box 1,x1-22 ,y1-44,x2-21,u2-43 

char 1,8,1,"0.k,?”:get key a$ 

if a$="n" then box ®,x1-22 ,y1-44,xB- 
21,y2-43:goto 1470 

if x2-x1>48 or y2-y1>40 then char 1,0, 
24,”"field too big”:sleep 2:goto 1478 
char 1,80,0,"integrate ”:char 1,0,24, 
”clear shape/overlay piece on shape 
c/o"”,1l:get key a$ 

sshape s$(0),x1-21,y1-43,x2-22, y2-44 
if a$-"c" then f-3:51-9:s2=9:else f- 
mo:si-nu:s2=® 

:graphic ®:goto 16490 

rem move and overlay menu**##eusuuusus 
EZ ZZ ZZ zz Zn Zn 2 22 277777 

print- "[clrJmove and overlay menu” 
input "shape nummer ‚die als 
hintergrund dient”;si 

input "shape nummer ,die zu ueberlegen 
ist”;s2 

input "modus fuer das hintergrund 
shape ";f 

input "nummer des shapes, indem es 
abgespeichert werden soll";s3 

graphic 1,1:sprite 2,0:box 1,169,58, 

211,141 

gshape s$(s1),170,109,F 

gshape s$(s2),2,0 

sshape e1$,0,0,23,20 

sshape e2$,0,21,23,42 

sshape e3$,24,0,47,20 

sshape e4$,24,21,47,42 

sprsav el$,4 

sprsav ed$,6 

sprsav e35,5 

sprsav e4$,7 

for ie4 to 7 

sprite i,1,4 

next 


120 QM "ai/s7 
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movspr 4,194,15® 

movspr 5,218,15® 

movspr 6,194,171 

movspr 7,218,171 

char 1,2,0,”bitte bewegen sie den 
figur, dann druecken sie den 
Feuerknopf!” 

rem Y#rnssansesssesshauagungs prog.*** 
-.nnn.nnn.n.nn..n.. 

do :if Joy (2)>127 then 1938 

a=joy (2)+1 

on a goto 1880,1890,1880,1900,1880, 
1919,1882, 1920 

loop 

for i=4 to 7:movspr i,+®,-1:next :loop 
For i=4 to 7:movspr i,+1,+®:next :loop 
for i=4 to 7:movspr i,+®,+1:next :loop 

for i=4 to 7:movspr i,-1,*+0:next :loop 

char 1,8,24, "modus zum ueberlagern” 

get key a$ 

a=val (a$) 

y"rsppos (4,1):x=rsppos (4,0) 
x=x-24:y=y-58 

gshape s$(s2),x,y,a 

sshape s$(s3),170,1900,210,140:for i=3 
to 6:sprite i,®:next 

graphic 8,1:scnclr 1 

goto 208 


rem 
rem Hruuuunnnnnnnnununuseunuenee modify 


menu “Euer 
rem 

print ”"C[Cclr]” 

print ”[cbm a] 
CCCCCCCECCCCECCCCECCCCCCCCCCCCCECccC 

Ccbm s)]” 

print "[shift -Jeditor[26spaces, 

shift -)” 

print "[cbm q,32shift *,cbm w]” 

print ”"C[shift -Jline[l28spaces, shift -] 


print "[shift -]box[l29spaces, shift -)” 
print "Cshift -Jcirclel26spaces, 

shift -J"” 

print "[shift -Jfill[28spaces, shift -] 


print "[shift -]Jchars[27spaces, 
shift -3” 
print "[shift -Jquit[l28spaces,shift -] 


print "[cbm z] 
CCCCLCECECCCCCCCECCCECCCCCCCCecccc 

Ccbm x] 

f=-1:p"6:0=-13:gosub 2180: a=-a-5 

on a goto 350, 2050, 2420, 2560,2670, 

2840, 2930, 208 

rem ##%4#####s###+invert balken routine | 
WERE 

bank B:a=p:sys dec (”1300”),a,1,32 

do 

if Joy (2)<>1 and Joy (2)<>S then 2278 

sys dec (”1309”),a,1,32 

if Joy (2)=1 then a=a-l:else a-a+l 

if a<p then a=o 

if ao then a=p 

sys dec (”13909”),a,1,32 

loop until joy (2)>127 

bend 

return 

rem 

rem 

rem *###u0#n0%%% routine abfrage jJoyst 

ick und bewegung sprite **«#euu00“ 

rem 

sprite s,1,13:movspr s,180,150® 2065 
do :for u=® to 1®:next :on joy (2)+1 6176 
goto 2360,2370,2360,2380,2360,2390, 

2360, 2400, 2360 

if joy (2)>127 then x=rsppos (s,0):y- y274 
rsppos (s,1):return :else loop 

movspr sS,+8,-1:loop 1184 
movspr S,+1,*+8:1loop 1887 
movspr s,+8,+1:1loop 19056 
movspr s,-1,+8:1loop 1103 
rem “nn... .nnn.......]inp#sssenunes 
WERE EEE EEE ER 


2420 
2430 


2440 
2450 
24608 
2470 


24B0 
24908 
2500 
2510 


2520 
2530 
2540 
2550 


2560 
25708 
25808 


2590 
2608 
2618 


2620 
2630 
2640 


2650 
2660 


2670 
2680 


2690 
2700 
2718 


2720 
2730 
2740 


2758 


27608 
2770 


2780 
2730 
2800 


2818 


2820 
28308 
2B40 
2859 


2860 


2879 
2880 
283908 


2900 


2310 
2929 


2930 
2940 
2950 
2358 
2970 
2980 


input ”"[CclrJwelches shape/modus”;a,m 
input "[rvs]1[lofflosschen/[rvs]sloff) 
etzen[3right]s[3left]”;a$ 

if a5-"]” then F=B:else f*-1 

gosub 2788 

draw F,x1-22,41-43 to x2-22,y2-43 
char 1,0,24,”0.k.?”:sprite 7,8:sprite 
8,28 

get key a$:char 1,8,24,”[7spaces]” 

if a$=-"n" then goto 2458 

sshape s$5(a),150,80,190,120 

graphic ®,1:input "weitere linien 
[3right]j[l3left]”;a$:scncelr 1 

if a$=-"j" then goto 2450 

goto 20850 

end 

Tem +EUR HILFT 
nr... [a 

print "C[clir]” 

input ”welches shape/modus”;a,m 

input ”"[rvs])sl[Loffletzen/[rvs)Illoff] 
osschen[3rightls[3left]”;a$:if as-"]1” 
then F=®:else f-1 

gosub 2780 

box F,x1-22,y1-43,x2-22,y2-43,0,0 
char 1,0,24,”0.k.?":sprite 7,8:sprite 
8,8 

get key a$:if a$-"n” then 2590 
sshape s$(a),150,80,190,128:scnclr 1 
graphic ®,1:input "weitere rechtecke 
C3right]jC3left]”";a$:if a$="j” then 
goto 2590 

goto 2050 


vcem Hrkeneenirc]e Pi 
LE ZZ U ZZ ZZ ZZ U ZU ZZ ZZ ZU ZZ 2 U 2 2 2 203 

input "[clr]Jshape/modus”;a,m 

input "[rvs]sloffletzen/[rvs]1iloff] 
oeschen[3right]s[3left]"”;a$ 

if aS=-"1" then F=-B:else f*-1 

gosub 2780 
x1=-x1-22:x2=x2-22:yl=y1-43:y2=y2-43:mx 
=int C(x2+x1)/2):my-int Cly2+y1)/2):rx 
-int (x2-mx):ry-int (y2-my) 

graphic ®,1l:input ”segmentwinkel”;se 
circle F,mx,my,rx,ry,®,368,08,se 
graphic 1:char 1,0,24,"0,k.?”:get key 
a$:if a$="n" then goto 2708 

sshape s$(a),150,80,190,128:graphic 2, 
l:input "weitere kreise[l3right)j 
[3left]”;a$ 

scnclr 1:if a$="n” then goto 2040d:else 
goto 2698 

rem #resn0nuneseneneseezuei punkte fes 
thalten*##suuunnnnennnune 

graphic 1,1:box 1,149,79,191,121 
gshape s$(a),150,80,m 

s=2:gosub 2349:x1=rsppos (2,0):y1- 
rsppos (2,1) 

s"3:gosub 2348:x2=rsppos (3,0):y2- 
rsppos (3,1):sprite 3,8:sprite 2,8 
return 

rem ++ Fill nn. n.n.nn.n.n... 
input "[CclrJshape/modus”;a,m 

input "C[rvs)Ivl[loffloder/[rvs)hloff) 
intergrundfarbe[3right]Jv[L3left)]";a$:if 
a$="h"” then F=d:else F*-1 

graphic 1,1:s=2:gshape s$(a),150,8®,m: 
box 1,149,79,191,121:gosub 2348 
x=rsppos (2,8)-22:y=rsppos (2,1)-43 
paint f,x,y4 

char 1,0,24,”0.k.???”:get key a$:if a$ 
="n"” then goto 2868 

sshape s$(a),150,80,190,128:scnclr 1: 
graphic B®,1:input "nochmal fuellen 
C3right]jJ[3left]”;a$ 

if a$=-"n" then 2040:else 2868 

rem #400 4#4charstPHennnnnanue nee 
“. 

input ”shape/modus”;a,f 

input ”"text(5 zeichen)” ;t$ 

t$=left$ (t$,5) 

input "invertiert[3rightIn[L3left]”;a$ 
if a$=-"j"” then m=1 

graphic 1,1:char 1,0,80,t$,m:sshape 
s5(0),0,0,40,49:s3=-a:s2-®:si-a:goto 
1658 
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2787 
3553 


2269 

657 
3031 
3331 


1809 
1761 
2189 
3963 


1633 
601 
128 


316 
8475 
5073 


657 
3592 
3331 


1609 


2470 
5374 


691 
1773 
3537 
2263 


657 
11188 


3182 
2626 
yııl2 


2015 


29308 


3000 
3918 


39020 
3038 
3940 
39850 


3968 
3070 
30808 


3090 
3100 
31108 
3120 
3138 


3149 


3152 
3160 
3178 
31808 


31908 
32008 


3210 
3220 


3238 
3240 
3250 
3269 
3270 
32808 


32908 
3308 


3318 
3328 


3338 
3340 
3350 
3368 
3378 
3389 
3398 
3499 


3410 
3420 
3430 
3440 
3450 
3468 
3470 
34808 


3498 


3502 
3518 


3520 
3538 
3549 
3558 


35608 
3578 
3588 
3598 
3698 
3618 
3628 
3638 


rem „...n.......load save nm ......n.n... 
... 

print "CclrJUC28shift *]J1 

print "[shift -,rvs]lload/save menue 
Coff ,13spaces, shift -]” 

print "J[L2Bshift *JK” 

print 
print 
print 
shift 
print 
shift 
print 
shift 
print 


"Cchm a,35shift *,cbm s)” 
"Cshift -]Jload a shape[23spaces, 
"Eonsrt -]save a shape[l23spaces, 
"Taniet -IJdirectory[26spaces, 
re -Jquit[31spaces, shift -] 


print ”Ccbm z2,35shift *,cbm x]” 
p"9:0=12 

gosub 2190 

a=a-B:on a goto 3150, 3210,3130,2908 
print "[CclrJinhalt von unit 8”: 

directory :get key a$:goto 2999 

rem *#ununnsnuneee |oad shape *rrnnuns 

m... 

input "[clr]Jload:name des files”;na$ 
input "nummer des shapes”;a 

bload (na$):sshape s$(a),8,0,490,40 

graphic 1,1:char 1,80,0,”so sieht ihr 
shape aus.”:gshape s$(a),®,9:get kay 

as 

graphic ®,1:goto 208 

rem *###un00s0s080® gayag shape *#rrnane 
-.... 

input "[clrJsave:nummer des shapes”;a 
input "name des shapes,unter der es 
abgespeichert werden soll";na$ 

gshape s$(a),2,0,0 

bsave (na$),p81S2 to p39732 

goto 2008 

rem --m..n..... knead menu *ernnnnnnnn 
print "Cclr,cbm a,38shift *,cbm sJ” 
print "[shift -,rvs]knead menu 
[(Sspaces, off ‚23spaces, shift -]1” 

print "[Ccbm q,38shift *,cbm w]” 

print ”C[Cshift -Iflip horizontal 
C23spaces, shift -] 

print ”[shift -]Jflip vertikal 
C25spaces, shift -] 

print ”"[shift -Jquit[l34spaces, shift -] 


print ”[cbm z,38shift *,cbm x] 
p"7:0=-9:gosub 2188 

if a=-B then goto 3388 

if a=7 then goto 3539 

if a=9 then 200 

rem “u..snsef]lip hori m. .-— .-—.......... 
input "[clr]Jshape/modus”;s,m 

ah l,1:gshape s$(s),150,88,m:x2= 
4 

rem “.ssf]lipen®+»es.s 

for x=158 to 1908 

For y"B® to 128 

locate x,y 

a=rdot (2) 

draw a,x2,y 

next :x2=x2-1 

next 

char 1,8,24, ”abspeichern?":get key a8: 
if a$-"n” then graphic B,1:goto 298 
graphic ®,1 

input "in welchem”;s:sshape s$(s),200, 
80,240,120 : 

goto 290 

rem .-.... Flip vertikal m... ...... 
input "shape / modus”;a,m 

graphic 1,1:gshape s$(a),150,80,m:y2= 
60 

rem **## fF]jipen *+»=»»» 

For x"158 to 1908: 42-68 

for y=B8 to 120 

locate x,y 

a=-rdot (2) 

draw a,x,y2 

ye=y2-1:next 

next 


>» 
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char 1,8,24, "abspseichern?”:get key a$: 
if a$=-"n” then graphic ®,1:goto 298 

graphic 8,1 

input "in welchem” ;s:sshape s$(s),15®, 

20,190,68 

goto 20908 

rem *##0000#000® shape integrator *+*® 
m... .—..... 

input ”"[clr]bitte den filenamen des 
grafikbildes/oder [rvs]*Lofflfuer 
kein bild”;bS 

if b$=-"®" then scnclr i1:goto 3720 
bload (b$),p8192 

sshape w$,0,0,40,48:input "shape, dass 
zu veberlegen ist/modus”;a,m 

graphic 1,8:sprite 2,08 

gshape s$(a),®,8,m 

sshape e1$,2,0,23,20 

sshape e2$,0,21,23,42 

sshape e3$,24,0,47,20 

sshape e4$,24,21,47,42 

sprsav eil$,4 

sprsav e2$,6 

sprsav e3$,5 

sprsav e4$,7 

For i=-4 to 7 

sprite i,1,4 

next 

movspr 4,194,150 

movspr 5,218,158 

movspr 6,194,171 

movspr 7,218,171 

gshape w$,0,0,8:sshape u$,9,0,170,9: 

sshape q1$,171,0,320,9 

char 1,8,8,"mit joystick bewegen 

do 

s=-joy (2)+1:if s>127 then exit 

on s goto 3950, 3960, 3950,3970,3950, 

3980, 3950, 3998 

loop :goto “4808 

for i=-4 to 7:movspr i,+®,-1:next :loop 
for i=4 to 7:movspr i,+1,+®:next :loop 
For i=-4 to 7:movspr i,+®,+l1:next :loop 
for i=4 to 7:movspr i,-1,+8:next :loop 

char 1,20,2,"shape wird fFestgestzt, 
sonst taste n",1 

get key a$:gshape q$,0,0,0:gshape qi$, 
171,0,0 

if a$=-"n"” then for i=-4 to 7:sprite i, 

®:next :graphic B,1:goto 208 

y"rsppos (4,1):x"rsppos (4,0) 

x=-x-24:y=y-50 

gshape s$(Ca),x,y,m 

for i=-4 to 7:sprite i,®:next 

graphic 2,1 

input ”"zurueckschreiben[3right]j 


[3left]”;a$ 

if a$=-"n” then 4120 

input "unter welchen namen” ;na$ 

bsave (na$),p8192 to p16384 

input "weitere einfuegungen[3right]j 
C3left]”;a$ 

if a$=-")” then goto 3720 

goto 208 

rem .„..... trap routine -m...n...... 
graphic B,1:for i=1 to 8:sprite i,®: 
next 

print "system-fehler:” err$ (er) 
print "Ffloppy-Fehler: "ds$ 

dcelear 

input "moechten sie aussteigen[3right] 
nC3left]”;a$:if a$=-"”j" then stop 

goto 298 

rem *+%®%s## datas einlesen und initialis 
ierung **+... 

trap 4150:key B,"gotol1208”+chr$ (13) 
for i=1 to 8:sprite i,®:next 

graphic 1,1 

graphic 8 

fast 

width 1 

fl 

eolor 1,2:color 4,7:color ®,1:graphic 
0,1 

color 5,16 

rem *%*4% datas Fuer sprites und invert 
ierroutins *++*“ 

rem **+® zuerst die sprites **+*+* 

for i-3584 to 3598:read a$:poke i,dec 
(a$):next 

for i-3608 to 3646:poke i,®:next 

for i=-3647 to 3679:read a$:poke i,dec 
(a$):next 

For i-3688 to 3711:poke i,®:next 
restore 4430: for i=3712 to 3743: read 
a$:poke i,dec (a$):next 

For i-3744 to 4095:poke i,8:naxt 

rem **#®# jetzt die invertierroutine ** 
.. 


for i-4B864 to 4896:read a$:poke i,dec 
(a$):next 

slow :return 

data f8,00,00,F0,00,08,F0,008,00,F8,00, 
00,9c,00,00,08 

data f8,00,00,28,00,00,28,00,00,a8,00, 
00,88,00,00,£8 

data 00,00,50,00,008,20,008,00,00,00,00, 
00,00,00,00,90 

data a8,a9,00,a4,18,69,28,90,02,18,e8, 
88,d0,f6,85,fa 

data 8a,69,04,85,fb,a0,20,b1,fa,49,80, 
91,fa,88,d0,£7,68 


Mi ind ei ik-Spiele kein em mehr. 
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Praxis Listing 


Elektronische Hilfe 
für Privatversicherte 


System: C128/Laufwerk/ 
MPS802 


Typ: Anwendung 
Sprache: Basic 


Im Gegensatz zu Ortskrankenkas- 
senversicherten haben Privatver- 
sicherte einen größeren Verwal- 
tungsaufwand. Rechnungen sind 
zu begleichen, Forderungen zu 
stellen. „Kravers“ übernimmt die- 
se Arbeiten und speichert sämtli- 
che Arbeitsgänge auf Diskette. 
Hat man das Programm einge- 
tippt, zur Sicherheit gespeichert 
und mit RUN gestartet, erscheint 
das Copyright-Bild. 

Nach Drücken der COMMODO- 
RE-Taste werden im Vereinba- 
rungsteil (ab Zeile 60 000) Varia- 
blen dimensioniert. Dann ist das 
Versicherungsjahr einzugeben. 
Der Computer versucht nun das 
File „Daten KV +Jahr" einzuladen. 
Ist dieses File nicht auf der Disket- 
te, wird eine Warnung ausgege- 
ben. 

Ist das File geladen, wird in das 
Hauptmenü (Zeile 100-130) ge- 
schaltet. Ist das File nicht auf der 
Disk, kommt man durch Tasten- 
druck in das Hauptmenü. Wird 
zum ersten Male mit dem Pro- 


gramm gearbeitet, müssen 
Grunddaten eingegeben werden. 
Die „l" schaltet in das Bild 


GRUNDDATEN (Zeile 200—246). 

Nun wählt man 'Eingabe' und es 

wird die Anzahl der versicherten 

Personen (max. 6 / Variable P) 

eingegeben. Folgende Daten sind 

einzugeben: 

l. Versicherungsjahr (ist bereits 
vorbelegt) 'J$' 

2. Name der Versicherung 'VN$' 

3. Name der versicherten Person 
(nur den Vornamen eingeben) 
'N$(p)' 

4. die Monatsprämie für die be- 
treffende Person 'MP$(p)' 

5. Prozentsatz der Erstattung von 


der Versicherung 'PR$(p)' 
6. BRE (Beitragsrückerstattung) 
*BR$(p)' 
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Arztbesuche, Rechnun- 
gen und Medikamen- 
teneinkäufe verwaltet 

„Kravers“ fürden Com- 

modore 128. Per Knopf- 


druck erscheinen alle 
Daten des letzten Jah- 
res, berechnet der 
Computer Kosten und 
Rabatte. 


Die BRE ist als DM-Betrag einzu- 
geben, oder nur die Anzahl der 
Monate. 

Der Computer berechnet nun für 
jede versicherte Person den 
Selbstbehalt 'SB(p)'. Dieser soge- 
nannte Selbstbehalt ist die Sum- 
me, bis zu deren Höhe man die 
Rechnungen selbst bezahlen soll- 
te. Dieser Betrag wird nicht ange- 
zeigt. 

Nun zum Punkt „4' des Hauptme- 
nüs: Eingabe von Rechnungen 
und Rezepten (Zeile 500-585): 

Es erscheint eine Maske, in der 
alle Variablen mit einem „—" vor- 
belegt werden. Wählt man „Ein- 
gabe", schaltet der Computer auf 
Dateneingabe (Zeile 560—585). 


Punkt statt Komma 
ERTEEEFETETTTEN 


Bei den Eingaben kann der Cur- 
sor die Zeile nicht verlassen (WIN- 
DOW in Zeile 58). Dadurch wer- 
den Fehleingaben fast ausge- 
schlossen. Das Datum muß im For- 
mat „TT.MM.]]" eingegeben wer- 
den. Bei den DM-Beträgen Punkt 
statt Komma eingeben. Bei der 
Eingabe des Patienten wird über- 
prüft, ob der Name in den 
GRUNDDATEN vorhanden ist. 
Falls nicht, wird eine Fehlermel- 
dung ausgegeben. Durch den 
PRINT USING- und PUDEF-Befehl 
werden bei allen Darstellungen 


von DM-Beträgen der Punkt durch 
ein Komma ersetzt und Tausender 
durch einen Punkt abgetrennt 
(deutsche Schreibweise von Zah- 
len). 


Es wird eingegeben: 


l. Rechnungsdatum "D$(a,0)" 
2.Rechnungsnummer "D$(a,1)" 
3. Rechnungsbetrag "D$(a,2)" 
4. Rechnungsgeber "Df(a,3)" 
5. Patient "Dfla,4)" 
6. Rechnungbezahltam "D$(a,5)" 
Dies sind allgemeine Angaben. 


Dann folgen die Angaben für eine 
Beihilfe und die Versicherung: 
Datum der 
Einreichung „BE$(a,0)" 
Beihilfe 
„VE$(a,0)" für 
Versicherung 
Erstattungsbetrag 
„BE$(a,1)* 
Beihilfe 
„VE$la,l)" für 
Versicherung 
Dies sind alle Eingaben. 


Der Computer berechnet nun die 
Differenz zwischen den einzelnen 
Beträgen und zeigt diese in Soll 
und Haben an. 

Bei der Neueingabe erscheint die 
Frage „Alles richtig J/N". Bei „J" 
wird das Bild gelöscht und die Va- 
riable AR (Anzahl der Rechnun- 
gen) um 1 hochgezählt, und der 
Computer erwartet eine neue Ein- 
gabe. Sind bereits mehrere Rech- 
nungen eingegeben, kann mit den 
Tasten „‚“ und „.“ zwischen den 
einzelnen Rechnungen geblättert 
werden und Daten ergänzt oder 
berichtigt werden. 


1. DatumdesBesuches "AB$(a,0)* 
2. Name des Arztes "AB$(a,1)" 
3.NamedesPaäatienten "AB$(a,2)" 
4.GrunddesBesuches "AB$(a,3)" 
Wie beim Punkt „Rechnungen / 
Rezepte“ schaltet der Computer 
immer in eine freie Maske, in der 
die Variablen mit „—“ vorbelegt 
sind. Das Bild ist also klar für eine 
Neueingabe. Sind jedoch schon 
Besuche gespeichert, kann mit» 
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den Tasten „‚“ und „." zwischen 

den einzelnen Arztbesuchen ge- 

blättert werden. 

Unter Punkt „6" DERZEITIGER 

SACHSTAND" wird der Gesamt- 

stand der Rechnungen und die 

Aufgliederung nach den einzel- 

nen versicherten Personen ange- 

zeigt. 

Nun zum Unterprogramm AUS- 

DRUCK (Zeile 2000 — 2997). 

Folgende Listen lassen sich aus- 

drucken: 

l. Liste der Arztbesuche (Zeile 
2100 — 2199) 

2. Liste der Rechnungen/Rezepte 
(Zeile 2200— 2299) 

3. Namentlicher Ausdruck (Zeile 
2300 — 2399) 

4. Ausdruck nach Suchbegriff 
(Zeile 2400 — 2499) 


5. Ausdruck der Grunddaten 
(Zeile 2500 — 2575) 

Die Möglichkeiten zum Ausdruck 

sind also vielfältig und aus- 

reichend. 


Damit nicht versehentlich Daten 
gespeichert werden, muß per 
Cursorsteuerung der Punkt Daten 
speichern im Menüpunkt „2" DA- 
TENTRANSFER extra gesteuert 
werden. Dies schließt eine unge- 
wollte Speicherung oder Einlesen 
von Daten nahezu aus. 


Unter Punkt „7“ GRAFIK liefert 
der Computer ein Schaubild, an 
dem die Erstattungsquote in Pro- 
zent schnell abzulesen ist. Der 
weiße Balken zeigt eine eventuel- 
le Beihilfe, der blaue Balken die 
Versicherung. Wenn der blaue 


Balken das Feld vertikal ausfüllt, 
hat die Versicherung ihre Ver- 
pflichtung erfüllt und die einge- 
reichten Rechnungen und Rezep- 
te bezahlt. 


Nachdem alle Arztbesuche und 
Rechnungen eingegeben wurden, 
sollte das Programm unter Benut- 
zung des Punktes ,„8" PRO- 
GRAMMENDE verlassen werden. 


Über die Cursorsteuerung hat 
man die Möglichkeit, zum Haupt- 
menü zurückzukehren. Bei der 
Wahl PROGRAMMENDE werden 
die im Speicher stehenden Daten 
abgespeichert und dann das Pro- 
gramm gelöscht (Zeile 1000 — 
1050) 


Heinz-Günther Naumanr imma 


Eolor @®,1:color 4,1:print "Colr,cyn]” 
print tab( 
7) VERWERTEN EEE EEE" : print 
tab(7)”*” spc(26)”*" 
print tab(7)”* programm: beihilfe+ 
[6spaces]*":print tab(7)"*[11spaces] 
krankenvers ‚[3spaces]*” 

4 print tab(7)"®" spc(26)”*":print tabl 
7)"® c-128 + mps 802 + vc1571 ®" 
print tab(7)"”* 
- *":print tab(7)”*” spce(26)"®” 
print tab(7)"*[2spacss)heinz guenther 
naumann[2spacss)*":print tab(7)"®" 
spce(26)"*" 
print tab(7)"*[7spaces]2859 nordholz 
[6spaces)*”:print tab(7)”®"” spe(26)”*” 
print tab(7)”*[7spaces)ltaubenring 18 
[6spaces)*":print tab(7)”*” spce(26)"*" 
print tab(7)"*[9spaces]<c> 12/86 
C8Bspaces]*”:print tab(7)”*” spe(26)”*” 
print tab( 
vv /8} ONE ren : print 
"C2down) eine taste druscken”:get key 
a$:print "[Cdown, whtlbitte warten" 

d goto 600080 


rem sub’s 


bank 15:sys 65520, ‚ze,sp:return 


:gosub 44:gosub 24: print chr$ (27)"q 
CblkJunbekannter name”:sleep S:return 


:for x=® to 79:print "Ccbm yl";:next : 
return 


:char ‚2,22,"Cblk,rvs] space [off] 
hauptmenue[l 7spaces,rvs] * [off] 
eingabe”:char ‚8,24, "[rvs] < Coff, 
“4spaces]blaettern[“4spaces,rvs] > Coff, 
home]”:return 


sound 2,9009,5:return 


:gosub 44:print ”Cclr] keine daten 
vorhanden”:sleep 3:goto 198 


:print d$(a,8) chr$ (16)”11” lefts 
(d$(a,1),15):a$=-"":if dSca,5)<>"-” 
then a$s-"«*” 

print left$ (d$Ca,3),15) chr$ (16)"19” 
d$Ca,4) chr$ (16)”2B8”a$; 

pudef ” .‚„”":print chr$ (16)”29”;:print 
using Fo$;val (d$Ca,2));:print chr$ 
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(16)”42"be$(a,0) chr$ (16)”50”;:print 
using fo$;val Cbe$Ca,1)); 

print chr$ (16)”63”"ve$(a,®8) chr$ 
(16)"71”;:print using fFo$;val (ve$(a, 
1)):print 

b=b+val (d$(la,2)):c=c+val Cbe$(la,1)):d 
-d+val (ve$(la,1)):return 


:gosub “44:gosub 24:print chr$ (27)”q 
CblkItt.mm.jj”:sleep 5:return 


:color 5,2:window sp,ze,x1,ze,1l:poke 
2l,l1:return 


:poke 21,8:print "[2home]”:return 
rem hauptmenus 


:eolor ®8,16:color 4,16:print chr$ 
(27)”mlclr,blk]lprogramm: ” 

print "CdouwnJ)b eihilfe+priv 
atver s."”:print tab(14)"[L2down, 

wht]hauptmenue” 

print tab(13)”"[redJEEEEEEEEEEEE[down]” 
:print ”"CbluJi Ccbm 2]= grunddaten” 

print "[blu,down]2 [Cchbm 2]= menue: 
CblkIdaten drucken” 

print "[Cblu,down]3 [cbm 2]- daten 
speichern / einlesen” 

print "Cblu,down]4 Ccbm 2]= rechnung / 
rezept[2spacesleingeben” 

print "Cdown,bluJS [Ccbm 2]1= 
arztbesuche”:print "[Cdown, bluJ6 

Ccbm 2J= derzeitiger sachstand” 

print "Cdown,blu37? [Ccbm 2]= grafik”: 
print "Cdown,blu]J8 [cbm 2]- 
arbeitsende” 

print "Cblk,down,bluJ9 [Cblk]= 
bearbeitungsdatum[l2spaces,cbm 21”da$" 
Chome]” 

get key a$:if a$S>="1" and aS<="9" then 

on val (a$) goto 200,2008,140,500,602, 

7902,800,1008,908:else goto 128 


rem datentransfer auswahl 


:color ®8,13:color 4,13:print "[cir, 12548 
blk]*+###s.s+.s+.+.[Ospaces)datentransfer 
[2spaces]**##»##ssses[l4doun,cbm 23”: 

a5(1)="hauptmenue”:a$(2)=-"daten 
einlesen”:a$(3)="daten speichern” 

for a=l1 to 3:print a$(la):next :a=1 

:char ‚B,a+5,"[wht]”:print a$la) 

get key a$:if a$=-"” ” then on a goto 

100, 400,300 


if a$=-"[Cup]” then char ‚®,a+5,”[cbm 2] 3745 
";:print a$(la):a=a-l:goto 1598 

if a$S=-"[down]” then char ‚®,a+5,” 3229 
Ccbm 2]”:print a$(la):a=a+1 

:if al then a=3 726 
if a>3 then a-1 1106 
goto 144 604 


rem grunddaten 


color 8,13:color “4,13:print "Cclr, 


blk]J###ons0enn»0#»%[2spaces)grunddaten 
[2spaces]*##»nennnunen 


print "Cblu,down]lversicherungsjahr: 
[Ccbm 21”J$ 

print "Cdown,blu,3spaces)name der 
vers.: [cbm 2]”vn$ 

print ”Cdown,blkJnamen[Sspaces]beitrag 
C3spaces]%%[8spacesIbre[Lwht]”:b=®: 
pudef ” ‚„‚„”:Ffor a=-1 to p:print 

print ”"[cbm 23”n$(Ca) tab(B); :print 
using fo$;val (mp$(a));:print spc( 
3)pr$Ca) tab(22)”Chlu)”;:print using 
fo$;val Cbr$(Ca));:print " dm” 

b=b+val (Cmp$Ca)):next :if s=1 then 235 
print ”"[Cdown,blulsie zahlen im jahr 
Cblk] ";:print using Fo$;b*12;:print ” 
Cblu)dm”:print "Cdownl]fuer ihre 
krankenversicherung.” 

sp"-®d: ze-24:gosub 24:print ”[chbm 2,rvs] 
space [off,blk] menuel3spaces,cbm 2, 
rvs] * Coff,blk] eingabelhome]”:s=® 
get a$:if a$=-" ” then 108 

if a$="#" then 230 

goto 2208 


:s=1:sp=d: ze=24:gosub 24:print "[bik] 
wieviel versicherte personen? Lwht]”p” 
CblkJ":window 31,24,31,24:poke 21,1: 

input p:gosub 68:if p<1 then p=1 

if p?6 then p=6 1005 
goto 298 s58 
:5p=19:x1=-22:ze=2:gosub 5B:print ” 190949 
Ccbm 23”jJ$: input "[Lwht]”; J$:gosub 6B: 

if len (j5)<>4 then gosub “44:gosub 24: 

print "bitte vierstellig!”:sleep 5: 

gosub 24: print chr$ (27)”gq”j$:goto 235 
ze=4:x1=-33:gosub SB:print ”"[cbm 2)” 4866 
vn$:input "[wht]”;vn$:gosub 569: ze=-8 

For a1 to p:sp-®:x1-7:gosub S58:print 10348 
n$Ca):input "CblkJ”;n$Ca):gosub 69:sp- 
10:x1=-17:gosub SB:print mp$(a):input ” 
Cblk]";mp$(Ca):gosub 69: sp-208:x1-22 

gosub 58:print pr$(Ca):input "Cblk]”; 10519 
pr$(Ca):gosub 60:sp-23:x1-33:gosub 58: 

print br$(Ca):input "[Cblk]”;br$(Ca): 

gosub 68:if len (br$(Ca))=1 then br$(a) 

-str$ ( val Cbr$(a))*val (mp$Ca))) 

s=-val (pr$(a)):if s=® then s=1 

sb(a)=-(C val (brS(a))*Cc108-val 
(pr$(la)))/s)+val (Cbr$(a)): ze=-ze+t2:next 
:5=d:goto 208 


rem daten speichern 


:eolor ®,1:color 4,1:print "[clr]” 
char ‚7,12, "Cyelldaten werden 
gespeichert”:dopen #B, "@daten kv "+ 
rights (j8,2),w:print#8, das 
print#8,ab:for i=1 to ab:for j-® to 3: 
print#8,ab$(i,jJ):next j,i 
print#8,ar:for i-1 to ar:for j-® to 5: 
print#8,dSCi,j):next j 

for jJ-® to 2:print#8,be$(i,j):print#B, 

ve$(i,j):next j,i 

print#8, J$:print#B, vn$:print#8,p 

for a=1 to p:print#8,n$(Ca):print#8, 

mp$(a):print#8, pr$(a):print#8,br$(Ca): 

print#8,sb(a):next 

dcelose :if xx=1 then 1058:else goto 

1900 

rem daten einlesen 

color 8,2:color 4,2:print "[clr]J”:char 


‚8,12,"C[Ccbm 2ZlJdaten werden eingelesen” 
dopen #8, "daten kv "+right$ (38,2) 
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:input#8,da$,ab:for i=1 to ab:for j-® 
to 3:input#B,ab$(Ci, j):next J,i 
input#8B,ar:Ffor i=1 to ar:for j=® to 5: 
input#8,d$(Ci,j):next J 

for j=® to 2:input#8,be$(i,j),ve$(i, 
J):next J,i 

input#B, J$,vn$,p 

for a=1 to p:input#8,n$(Ca),mp$(Ca), 
pr$(a),br$(a),sb(a):next 

dcelose :goto 1988 


rem rechnung / rezept singeben 


:color ®,16:color 4,16:print "Ccir, 
blk,rvs]*****#e[2spaces]rechnungen / 
rezepte[l2spaces]**»#sun0#".a=ar 
s=-®:for b=® to 5:if d$Ca,b)=""” then 
d$Ca,b)=-"-” 

next :Ffor b=® to 2:if be$(a,b)=""” then 
be$(a,b)I="-"” 

next :Ffor b=® to 2:if ve$(Ca,b)=""” then 
ve$(a,b)="”-” 

next 

:if a<1 then arar:gosub 44 
if a>ar then a=l:gosub 44 
:print ”"Chome, 2down, blu] 

rechnungsdatum: [cbm 21” chr$ (27)"g"” 
d$(a,8):print "[down,blu] 
rechnungsnummer: [cbm 21” chr$ (27)”q” 
d$Ca,1) 
print "Cdown, blulrechnungsbetrag: 

[cbm 23” chr$ (27)”q”;:print using 
fo$;val (d$Ca,2));:print ” dm":print ” 
Cdown,blu] rechnungsgeber: [cbm 21” 
chr$ (27)”"q”d$(Ca,3) 

print ”"Cdown, blu, 8spaces)patient: 

[cbm 2]” chr$ (27)”gq”d$Ca,4):print ” 
Cdown,blu,Sspaces]bezahlt am: [cbm 21” 
chr$ (27)”q”d$(Ca,5) 
print "[Cblk] 


print "Cblulsatz nr.[Ccbm 2,4spaces, 

Yleft]”a tab(16)”"C[Cblklbeihilfelblu] * 

Cblk] ” left$ Cvn$,12) 

char ‚8,16,”Ccbm 2] eingereicht am: 
[Cblu]l”:print chr$ (27)"”q”be$(a,0) 

tab(30)ve$(Ca,®8) 

print "[cbm 2,downlerstattet wurde: 
Cblu]” chr$ (27)”q”;:print using Fo$; 

val (be$(a,1));:print tab(29); :print 

using Fo$;val (ve$(a,1)) 

print ”Ccbm 2, down, 6spacesIdifferenz: ” 

chr$ (27)”q”; 

z=-144:if val Cbe$la,2))<® then z=28 
print tab(16) chr$ (z);:print using 
Fo$;val (Cbe$la,2));:z=144:if val 
(ve$(a,2))<® then z=28 

print tab(29) chr$ (z);:print using 

Fo$;val (ve$(a,2)) 

if s=-1 then char ‚8,21,”[rvs,blu,doun, 
1®2spaces]lalles richtig[l2spaces]j/n 7? 
C8spaces, off]”:goto 555 

gosub 37 

get a$:if a$=-" ” then 108 

if a$-"," then a=a-1:goto 508 

if a$=-",” then a=a+l:goto 508B 

if aß=-"*" and a=ar then s=1:goto 568 
if a$=-"*"” then 568 

goto 538 7 


:get a$:if a$="j" then ar=ar+1:s=®: 
goto 588 

if a$=-"n" then 560 

goto 555 


:ze=2:sp=-17:x1=24:gosub 58:print d$Ca, 
®):input d$Ca,8):gosub 68:if len 
(d$(a,0))<>8 then gosub 56:goto 568 
ze=4:x1=-32:gosub S8:print d$Ca,1): 
input d$(a,1):gosub 68: ze-6:x1-24: 
gosub SB:print d$(Ca,2):input d$Ca,2): 
gosub 568: ze-8:x1-34:gosub SB: print 
d$S(a,3):input d$Ca,3) 

gosub 68 

:ze=18:x1-28:gosub S8:print d$Ca,4): 
input d$(a,4):ge=-®:Ffor b=1 to p:if 
d$Ca,4)=nSCb) then z=val (pr$SCb)):ge=-- 
1 
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next b:if ge=-1 then 568 

print ”"[2home)”:gosub 24:gosub 28: 
gosub 24:print chr$ (27)”g”:goto 565”- 
” then gosub S6:sleep 5:goto 568 
:ze=12:x1=24:gosub 58:print d$(Ca,S): 
input d$(Ca,5):gosub 68:if len (d$Ca, 
5))<>8 and d$(Ca,5)<>”"-” then gosub 56: 
sleep 5:goto 568 


:ze=16:sp=-17:x1=-24:gosub SB: print 
be$(Ca,®): input be$Ca,®):gosub 60: if 
len (bse$(a,0))<>8 and be$la,B)<>"-" 
then gosub 56:sleep S:goto 578 
:sp=30:x1=-37:gosub 58:print ve$(a,®): 
input ve$(la,d):gosub 60:if len (ve$Ca, 
B))<>8 and ve$(la,0)<>”"-” then gosub 
S6:sleep 5:goto 571 
:ze=18:sp-17:x1=24:gosub SB:print 
be$(a,1):input be$(a,1):gosub 68:sp= 
38:x1-37:gosub S8:print ve$(Ca,1): input 
ve$(Ca,l):gosub 69 

be$(a,2)=-str$ C int (CC val Cbs$Ca, 
13))-C val (d$Ca,2))/100*C108-2)))*108 
+,5)/100):ve$(a,2)=str$ ( int (CC val 
(ve$Ca,1)))-(C val (d$(a,2))/1900*%2))* 
100+.5)/100):goto 518 


rem arztbesuche 


:s=®:color 8,15:color 4,15:print ” 
Cclr,rvs,wht]##s“s.......s[Dspaces] 
arztbesuche[l2spaces)* 

a=-ab:for b*® to 3:if ab$Ca,b)=""” then 
ab$(a,b)="-” 

next 

:if al then a=rab:gosub 44 

if arab then a=1:gosub 44 

:print "Chome, blk, “down, Sspaces]Jam: 
Cblu]” chr$ (27)"g”ab$(a,®):print ” 
Cdown,blk,4spaces]bei: [blu]” chr$ 
(27)”gq"ab$(a,1):print "Cdown,blk] 
patient: [blu]” chr$ (27)”g"ab$Ca,2): 
print "[Cdown,bilk, 2spaces)grund: C[blu, 
down]” 

print chr$ (27)”q "ab$(a,3):print "” 
[2down]” chr$ (27)”"gCblkldatensatz: 
Cblu)”a 

if s=1 then'char ‚10,18, "LwhtJalles 
richtig[l2spaces]jJ/n??":goto 648 

gosub 37 

get a$:if a$=-" "” then 198 

if a$=-"," then a=a-1:goto 694 

if a$=-"." then a=a+l:goto 604 

if aS="®" and a=ab then s=1:goto 658 
if aß=-"*+" then 659 

goto 628 

:get aS:if a$="j" then ab-ab+1:goto 

6908 

if a$-"n" then 650 

goto 6498 


:ze=4:sp=-9:x1=16:gosub SB: print abSCa, 
®):input ab$(a,®):gosub 6B:if len 
(ab$(a,8))<>B then gosub S6:goto 659 
ze=6:x1-29:gosub 58:print ab$(Ca,1): 
input ab$(a,1):gosub 60 
:ze=8:x1-20:gosub S8:print ab$Ca,2): 
input ab$(a,2):gosub 608:for c=1 to p: 
ge-Cab$(a,2)=n$(c)):if ge=--1 then 655 
next :gosub 28:gosub 24:print chr$ 
(27)"q”:goto 653 
:ze=12:sp=1:x1=-37:gosub S8:print 
ab$(a,3):input ab$Ca,3):gosub 68:goto 
608 


rem derzeitiger sachstand 


:if d$C1,0)="-” then 46 
color ®,1:color 4,1:print ”"C[Cclr,rvs, 
cyn]###o##sss@a#s»#%#[ 2spaces)sachstand 
C2spaces]**+e»snssnsssn" : print 
re=-d:rr-®:pudef ” .,” 
for a=1 to ar:re-re+val (d$Cla,2)):rr- 
rr+tval Cbe$(a,1))+val (ve$(la,1)):next 
print "[cbm Blgesamtbetrag der 
rechnungen: ";:print using Fo$;re: 
print tab(1B8)"erstattet: ";:print 
using fo$;rr 


® print "[yelldavon fuer:” tab(18)"” 


Ccbm Bles Fehlen: ”;:print using Fo$; 
int ((rr-re)*100+.5)/108 

for a=1 to p:re=d:rr-®:print :print ” 
[yel]"n$(Ca)”"[cyn]”; 

for b=1 to ar:if n$(a)=d$Cb,4) then re 
-re+val (dS(Cb,2)):rr=-rr+val (be$(cb,1)) 

+val (veS(b,1)) 

next :print tab(18);:print using Fo$; 

re 

if sb(a)’re then print "noch nicht 
einreichen”; :print using fo$; int 
((sb(a)-re)*1900+.5)/1908;:print ” dm 
fehlen”:goto 738 

print "erstattet:";:print using fo$; 
rr;:print ” differenz:";:print using 
fo$;int (C(rr-re)*100+.5)/108 

:next :char ‚8,24,”"Crvs] space [Loff)"”: 
get key a$:goto 198 


rem grafik 


:color 8,14:color 1,1:color 4,14: 
graphic 1,1:x=-9d:y=9:hi=® 

char 1,8,2, "erstattungen in prozent”: 
color 1,2:char 1,26,2, "beihilfe/”: 
color 1,7:char 1,35,8,”vers.” 

color 1,18:char 1,19,4,”188”:char 1, 
19,9,"%%”:char 1,19,13,"50”:char 1,19, 
18,”%%”:char 1,19,22,”0” 

for a=1 to p:re(a)=®:bs(a)-9:sv(a)-P: 
eb(a)=-B:ev(Ca)-d:for b=1 to ar 

if nS(a)=d$S(Cb,4) then re(la)-re(la)+val 
(dSChb,2)):bsCa)=-bsla)+val (Cbe$Cb,1)): 
sv(a)=sv(a)+val (ve$(Cb,1)) 

next :a$Ca)-=-str$ ( int (re(a))) 

next :color 1,7:x=®:Ffor a1 to G:if a- 
4 then x=x+3 

char 1,x,2,left$ (a$(a),S):char 1,x+1, 
@4,left$ (n$(la) ,S):x=x+6:next 

x=7:for n=1 to 6:if n=4 then x=x+24 
eolor 1,1:box 1,x,31,x+41,184:if n$(Cn) 
-"name” then draw 1,x,31 to x+41,18%4: 
draw 1,x+41,31 to x,184 

x=x+4B:next :x=B:for a=1 to 6:color 1, 
@:if a=4 then x=x+24 

if n$(a)="name” then 840:else begin 
xx-re(la)/100*(108-val (prS(la))):if xx= 
® then xx=1 

box.1,x,183-int ((151/199*(100*bs(a)/ 
xx))),x+16,183, ,1:xx=re(a)/1900*val 
(pr$(a)):if xx=® then xx=1 

color 1,7:box 1,x+24,183-int ((151/108 
n61g@svCa)/xx))),x+39,183, ,1 


ıx=x+4B:next 
get key a$:graphic ®,1:goto 108 


rem bearbeitungsdatum eingeben 


:ze=24:sp=-23:x1=-30:gosub SB:print ” 
Ccbm 2]”da$: input "CLwht)”;da$:gosub 
60:if len (da$)-B then 198:else gosub 
44:goto 908 


rem arbeitsende 


:xx=1:color ®,1:color 4,1:38(1)- 
"hauptmenue”:a$(C2)="programmende”: 
print ”"[Cclr,4down)”"a$(1):print a$(2):a 
-1:y=-3 

:char ‚®,a+y,”[Cyel]”:print a$(la) 

get key a$:if a$=-" ” then on a goto 
100,318 

if a$=-"[Cup]” then char ‚®,a+y,"Ccbm 2] 
":;print aS(la):a-a-1:goto 1997 

if aS=-"Cdown]” then char ‚®,a+y,” 
Ccbm 2)”:print a$(la):a-a+l 

:if ati then a=2 

if a>2 then a=1 

goto 1982 

:color 4,14:color 8,12:print ”Cclr, 
cbm 61”":new :end 


rem druckprogramm 


color ®,14:color 4,14:print "[elr,bik, 
rvs]#####+++[ 2spaces]menuel 3spaces)] 
druckprogramm[l 2spaces]**++#se" 


print "C2down,blu]li = liste der 3452 


arztbesuche drucken” 


print "Cclr]”:char ‚8,18, "liste fuer 
Cblu)”:print :print :print su$ 


2004 print ”"[L2down,cbm 2]J2 = liste der 5761 2436 print "[Cdown,blkJuwird gedruckt” 1722 
rechnungen”: print ”[C2down,blu]3 = 2448 open 1,4:open S,4,6:cmd 1:print chr$ 6183 
namentlicher ausdruck” (14)”liste Fuer ”"suS”[3spaces]”j$ chr$ 

2008 print "[2down,chm 234 = ausdruck nach 8723 (15) chr$ (16)"71”da$ 
suchbegriff”:print ”"C2down,blu]S = e445 gosub 2908: print#6,chr$ (24):cmd 1:b- 3921 
grunddaten drucken”:print "Cblk, 9:d=-B:c=-®:for a=1 to ar-1:a$-"” 

Edown,rvs] space [off] hauptmenue” 2450 for s=® to 5:if su$=-d$(la,s) then gosub 3689 
2029.get a$:if a$=-" ” then 1008 1298 S0:a$-suS 

2021 on val (a$) goto 2100, 2200,2300,2400, 26098 2451 next :Ffor s=® to 1:if suS-be$la,s) and 4446 
2508 a$<>be$(a,s) then gosub 50: a$=-su$ 

2030 goto 2920 577 2452 next :Ffor s=® to 1:if suS-ve$(la,s) and 3872 

2039 : a$<>ve$(la,s) then gosub 58 

2100 :if ab$(1,0)-"-”" then gosub “4:char , 6387 2454 next s,a:gosub 2910:gosub 2929:goto 2472 
3,4, "Cblk,rvs] keine arztbesuche 2390 

gespeichert ":sleep 3:goto 2908 2499 : 

21805 print "Cclr]”:char ‚8,12, ”arztliste 3152 2508 :print "[clr]":char ‚5,12,”"grunddaten 11315 
wird gedruckt” werden gedruckt”:open 1,4:cmd 1:print 

2118 open 1,4:cmd 1:print chr$ (14) "liste 5498 chr$ (14)”"grunddaten der versicherten 
der arztbesuchel2spaces]”)j$ chr$ personen "” chr$ (15) )j$:gosub 31:print 
(15) chr$ (16)”"71”da$ :print 

2114 gosub 31:print "[2spaces]lwann" chr$ 5383 2568 print "name der privat-versicherung: 5207 
(16)"12wer” chr$ (16)"20bei” chr$ C2spaces]” chr$ (14)vn$:print :gosub 
(16) "42grund” 31:print 

2122 gosub 31:for a=1 to ab-1:print ab$la, 7945 2562 print "vorname[6spacesJmonatsbeitrag 8366 
8) chr$ (16)"10”"ab$la,2) chr$ (16)"29” C3spaces)*vers. erstattet in %* 
ab$(a,1) chr$ (16)"42”"ab$(a,3):next : [Sspaces]beitragsrueckerstattung": 
print#1:close 1:goto 2008 print :pudef ” „, ” 

2139 : BSES aSs-"Hannuhhhhhl3ispaces)#, HHt.## dm 4801 

22008 :if d$C1,0)=”-” then 46 1035 C1l4spaces]###%[20spaces]#, ###.## dm” 

2201 print "Cclr]”:char ‚1,12,”"liste der 4425 8578 b=®:For a=1 to p:print using a$;n$(a), 7058 
rechnungen wird gedruckt” val (mp$(Ca)),pr$(Ca),val (Cbr$(a)):b=b+ 

2202 open 1,4:open 6,4,6:cmd 1:print chr$ 7587 val (mp$Ca)):next :print :print 
(14)"liste der rechnungen[3spaces]”j$ 2572 print "jahrsbeitrag zur 7595 

chr8 (15) chr$ (16)"71”das krankenversicherung: ”;:print using 

2220 gosub 2908: b=9:c=9:d-®:print#6,chr$ 6339 fo$;b*12;:print ” dm":print :gosub 31: 
(24):cmd 1:for a=1 to ar-1:gosub 50: print 

next :gosub 2918:gosub 2929:goto 2990 2575 print#1:close 1:goto 2088 1836 

2299 : 2899 : 

2308 :if d$SC1,0)="-" then 46 1035 2908 :gosub 31:print :print ”* = rechnung 7392 

2305 print "[olr,rvs]*##sess..[l2spaces] 5396 bezahlt” chr$ (16)"45beihilfe 
namentlicher ausdruck[2spaces]*##»«s C4spaces]***[3spaces)” left$ (vn$,16): 
C3down,cbm 21”:n$(8)="menue"” gosub 31:print 

2315 b=®:d=-9:c=-®:Ffor a=-® to p:print n$Ca): ysyg 2902 print chr$ (16)"31betrag[“4spaces) 5383 
next :a=-d:suS=-"":y=4 beantragt[3spaces]lerstt .C[3spaces] 

2328 :char ‚®,a+ty, "[wht]”:print n$(a) 1994 beantragt[2spaces]erstt.” chr$ (141) 

2321 get key a$:if a$=-" " then 2339 1804 2903 return 142 

2322 if a$="[up]” then char ‚®,a+y,”[cbm 2) 4069 2309 : 

";print n$(Ca):a-a-1:goto 2324 2918 :gosub 31:print :print chr$ 10632 

2323 if a$="[down]” then char ‚B®,a+y,” 3390 (16)"15gesamtbetrag: ”;:print using 
Ccbm 2]”:print n$Ca):a=a+i fo$;b;:print chr$ (16)”58”; :print 

2324 :if a<® then a=p 7393 using Fo$;c;:print chr$ (16)"71”;: 

2325 if a>p then a=® 955 print using fo$;d:return 

2326 goto 23208 583 2819: 

2338 if a-® then 2000:else su$-n$(a) 1855 2928 :a$="guthaben”:b=int CC(c+d)-b)*108+ 5696 

2332 for a=1 to p:if su$=n$(a) then sb= 6729 ‚5)/188:if b<® then a$="fehlbetrag” 
sb(a):pr-val (pr$Ca)):br=val (Cbr$(Ca)): 2921 print :print a$”: ";:print using Fo$; 3273 
ge-(suS-n$(a)) b;:print ” dm":return 

2333 next :if ge<>-1 then 2000 1339 23589 : 

2335 print "[Cclr}”:char ‚0,10,”Ccbm ZJliste 4628 2998 :print#1:print#6,chr$ (36):close 1: 2457 
fuer [blk]’":print su$”'Ccbm 2] wird close 6:goto 2000 
gedruckt” 59997 : 

2348 open 1,4:open 6,4,6:cmd 1:print chr$ 6183 53338 rem vereinbarungsteil 
(14) "liste Fuer ”suS”"[3spaces]"jJ8 chr$ 53339 : 

(15) chr$ (16)"71”das 60008 : J$5-"1986”:a-100:dim ab$S(Ca,3),d$(Ca,5), 3785 

2345 gosub 2900: print#6,chr$ (24):cmd 1:for 4483 be$(a,2),ve$(a,2) 
a=1 to ar-l:if su$=-d$Ca,4) then gosub 60001 da$-"00.08.00”:a$="+":vn$= 7208 
so RPPTTTrTrrr":FoS-"HH,HHh.#H”:poke 

2354 next :gosub 2910:if sb>b then print : 3722 e532,1 
goto 2399:else gosub 2928:goto 2999 600902 ab"-1:ar=1:p-56:vol 15 1976 

2398 :print "bei '"vn$”’ noch nicht 7584 60004 For a=® to 3:ab$(1,a)="-":next :Ffor a= 4134 
einreichen, es Fehlen noch: ";:print ® to 5:d$(1,a)="-":next 
using fo$;sb-b; :print ” dm.”:print 60005 for a-1 to p:n$(Ca)-"name”:mpS(la)=-"9": 5591 

2391 print "guthaben mit bre: ”;:print 6463 prS(a)="%%":br$Ca)=-"90":sb$(a)="®":next 
using fo$; (b/100*C188-pr)-b)+br; :print 68015 print chr$ (27)"m[clr,cynlwelches 7151 
” dm”:goto 2998 Jahr?C[yel ,2spaces]”jJ$"C[Cwht)”: window 

2399 ; 15,80,18,8:poke 21,1:input jJ$:poke 21, 

2400 :if d$C1,0)=-"-” then 46 1835 ®:print "C2home)” 

2405 su$=-"":print "Colr,rvs]****e[2spaces] 6781 68830 :dopen #8, "daten kv "+right$S (38,2) 2058 
ausdruck nach suchbegriffl2spaces)] 600831 if ds<>® then close B:gosub “44:print ” 8583 
“...°Coff)":print "C2down]’return’ = Cclr,down,cyn] fuer dieses programm 

menue” noch keine daten[3spaces]auf dieser 
2418 print "[2downlausdruck gewuenscht 7572 diskette.”:print "[2down,yelltaste”: 
Fuer”: ze=8B:sp-®:x1=-20:gosub 58: input get key a$:goto 198 
"CblkJ”;su$S:gosub 6B:if su$-"" then 60108 print "[2down]Jdaten werden eingelesen" 2794 
29008 :goto 412 - 


uf 
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Praxis Listing wu: DEE 


Praxis Listing 


Programmieren 
in Assembler mit XRi 


System: C64 
Typ: Anwendung 
Sprache: ASM 


XRl prüft Quelltextzeilen direkt 
nach der Eingabe und legt sie 
komprimiert im Speicher ab. Dies 
ermöglicht, lange Maschinenspra- 
cheprogramme zu schreiben, 
ohne die Floppy zu nutzen. Nach- 
dem das Programm abgetippt und 
gespeichert wurde, lädt man es 
mit LOAD"programmname" ‚8,1 
und startet es mit SYS 49152. 

Die Syntax einer Assemblerzeile 
Der Assembler befindet sich nach 
dem Starten im Editormodus. Alle 
jetzt eingegebenen Zeilen werden 
als Assemblerzeilen interpretiert 
und müssen daher der Syntax die- 
ser Programmiersprache entspre- 
chen. Diese gleicht im Prinzip 
dem allgemeinen 6502 Assem- 
blerstandard. Eine Zeile sieht im 
Aufbau etwa folgendermaßen 
aus: 

Zeilennummer (Symbol) Mnemo- 
nic (Operand) (Kommentar) 

Dabei sind die Elemente in Klam- 
mern optional, das heißt nicht im- 
mer notwendig. 

Beispiele: (siehe auch Anhang) 

100 ANFANG LDA 65 ;INHALT 


SPEICHERSTELLE 
65 LADEN 

150 STA (TABELL),Y 

180 EN ;DIESISTEIN 
PSEUDOBEFEHL 


Zeilennummer: 

Sie bestimmt nur die Reihenfolge 
der Programmzeilen 

Symbol: 

Ein Symbol darf aus bis zu sechs 
Buchstaben oder Zahlen beste- 
hen; das erste Zeichen muß je- 
doch ein Buchstabe sein. Insge- 
samt können 640 Symbole (auch 
Labels genannt) definiert werden. 
Ein Symbol repräsentiert eine 
Zahl zwischen 0 bis 65535, ent- 
spricht daher etwa einer Integer- 
variablen in Basic und kann so als 
Konstante oder als Adresse be- 
nutzt werden. Die Wertzuweisung 
kann entweder durch den "="- 
Befehl (siehe Pseudobefehle) 
oder durch Einfügen zwischen 
Zeilennummer und Mnemonic er- 
folgen. 

Der erste Fall gleicht exakt einer 


Variablendefinition in Basic. 

Im letzteren Fall erhält das Sym- 
bol den Wert des momentanen 
Programmzeigers, also die Num- 
mer der Speicherstelle, in die der 
nachfolgende Befehl abgelegt 
wird (Zahl im Assemblerlisting 
ganz links). Beispiele stehen im 
Anhang. 

Mnemonic: 

Mnemonics sind Prozessorbefehle 
(LDA,JMP etc.) oder Pseudoan- 
weisungen (Beschreibung weiter 
unten). 

Operand: 

Er ist letztendlich nichts weiter als 
eine Ädressierungsvorschrift, ver- 
knüpft mit einer 8- oder 16-Bit- 
Zahl. Um Eingaben zu vereinfa- 
chen, verarbeitet der ASSEM- 
BLER XRl Symbole und ASCII- 
Zeichen. Folgende Möglichkeiten 
bestehen: 

% kündigt 8stellige Binärzahl an 
$ _ kündigt 2- oder 4stellige Zahl 
in hexadezimaler Form an 
„A" Anführungszeichen umschlie- 

ßen ein Textzeichen, dessen 


ASCII-Code gebildet wird 

(hier „A" = 65) 
Dezimalzahlen besitzen keine 
Kennung. 


> Bildet das Higherbyte des fol- 
genden Ausdrucks 

< Bildet das Lowerbyte des fol- 
genden Ausdrucks 

Mit "+" (bzw. "—") können Aus- 

drücke rechnerisch verknüpft 

werden. 


ee nm 


Zur Erinnerung: 
LDA 68 ;lädt den Inhalt der Spei- 
cherstelle 68 
LDA #68 ;lädt den Wert 68 direkt 
Will man den Wert des Operan- 
den direkt laden, muß ein "#" 
vorangestellt werden. 
Runde Klammern sind in bekann- 
ter Weise für die Indizierungsar- 
ten der Prozessorbefehle verwen- 
det worden (Beispiel: STA (ZEI- 
GER),Y). Sollen mehrere Ausdrük- 
ke vor einer weiteren Behandlung 
verknüpft werden (nur in Verbin- 
dung mit ">" bzw. "<“ sinnvoll), 
sind diese durch “'" einzugrenzen 
(entspricht Klammersetzung). 


Beispiele: 

100SYMBOL = $O0IEA ;Wertzuweisung 
110 LDA#>SYMBOL+I ;lädt$0l+1 =2 
120 LDA#>'SYMBOL+1' ;lädt >$OIEB = 1 


130 LDA #'% 10000001 + "A" +"$0100-100' 
Lädt den Akku mit: >(129+65)+ <(156) = 0+156 = 156 
Kommentar: 

Beliebiger Text zur Erklärung ei- 
nes Programmes (entspricht dem 
REM-Befehl in Basic). Kommenta- 
re werden von der restlichen Zei- 
le durch ein ";" oder ein “!" ge- 
trennt (Unterschiede siehe DLK- 
Befehl). 

Beispiele: 

100 STA 12485 ‚Zeile mit Kommentar 
110 !Dies ist eine reine Kommen- 
tarzeile. (Kommentarzeilen mit 
Graphikzeichen gefüllt können 
gut zur optischen Abgrenzung ein- 
zelner Programmteile genutzt 
werden.) 

Man beachte, daß die Positionen 
der Zeilenelemente (Symbole, 
Mnemonics und so weiter) genau 
festgelegt sind. Sie müssen durch 
mindestens ein Leerzeichen ge- 
trennt sein (Kommentar durch 
oben erwähnte Trennungszei- 
chen). Ein fehlendes oder „zu kur- 
zes" Symbol der Mnemonic wird 
durch die entsprechende Anzahl 
Leerzeichen ergänzt. Um alle for- 
malen Fehler zu umgehen, sollten 
Sie den später noch genauer be- 
schriebenen Tabulator benutzen 
(siehe Abschnitt 2.3). Syntaktische 
oder Ädressierungs- und „Recht- 
schreibefehler“ werden vom Edi- 
tor sofort bemerkt und durch ein 
Fragezeichen kenntlich gemacht. 
Eine fehlerhafte Eingabe wird 
nicht in den Rechnerspeicher 
übernommen; der Cursor springt 
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hierbei auch nicht in die nächste 

Zeile und sie kann daher direkt 

verbessert werden. 

Die Editorbefehle 

a) Der Find-Befehl (FND) kann 
blockweise eingesetzt werden. 
Format: FND'"Text",a—b 
Der Zeilenbereich a—b wird 
identisch dem beim LIST-Be- 
fehl eingegeben und bestimmt 
den Programmblock, in dem 
nach 'Text' gesucht wird. 
Beispiel: FND"loop“, 100-5430 

sucht den Text 'loop’ im Pro- 
grammabschnitt 

von Zeile 100 bis Zeile 5430. 
Ebenso möglich: 
FND"loop" 
ganzes Programm durchsu- 
chen 
FND'"loop“,—1420 
von O bis Zeile 1420 suchen 
FND"loop",12— 
von Zeile 12 bis 65535 suchen 
Gerade diese Erweiterung er- 
spart viel Mühe und Unüber- 
sichtlichkeit. 

b) Der Befehl PGE (Page). 
Ermöglicht wird eine leichte 
Einstellbarkeit des Seitenfor- 
mates (im Gegensatz zu den 
umständlichen Pokes, wie in 
der Anleitung erklärt). 

Format: PGE sl,bl 
Sl ist die Seitenlänge in Zeilen, 
bl die Anzahl bedruckter Zei- 
len pro Seite. 
Beispiel: PGE 72,63 
Die zu bedruckende Seite hat 
maximal 72 Zeilen, von denen 
jedoch nur 63 bedruckt wer- 
den sollen. 
Die obengenannten Werte ent- 
sprechen auch der Voreinstel- 
lung bei Programmstart und 
können durch den PGE-Befehl 
ohne Parameter wieder einge- 
setzt werden, das heißt: 

PGE <=> PGE 72,63 

Diese Befehle werden alle in Kurz- 

schreibweise (das heißt 3 bzw. 4 

Buchstaben bei AUTO) im Direkt- 

modus eingegeben. 

Der APPEND-Befehl 
Format: 

APD 

"NAME",x 

Hängt das Programm "NAME" 
an das im Speicher befindliche 
an. 

x = Gerätenummer; 
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Floppy: x=8, 

Kassette: x=]1 

Besitzt das nachgeladene Pro- 
gramm kleinere Zeilennum- 
mern äls das „Erste“, sollte 
dies durch den RENUMBER- 
Befehl anschließend korrigiert 
werden. 


Der AUTO-Befehl 
Format: 
AUTO a,b 
Gibt die Zeilennummern auto- 
matisch vor, beginnend mit 


Nummer a und der Schrittweite 


Dieser Modus wird durch Ein- 
gabe einer „Leerzeile" (soforti- 
ges Drücken der RETURN-Ta- 
ste hinter der Zeilennummer) 
oder Eingabe eines Direktbe- 
fehls gelöscht. 

Der COPY-Befehl 
Format: COP 
"PROBE",x 
Speichert das zuletzt erzeugte 
Maschinenprogramm unter 
dem Namen "PROBE" auf das 
Gerät x ab. Dieser Befehl er- 
möglicht es, nach einem Äs- 
sembliervorgang beliebig vie- 
le Kopien des Ass-Files (natür- 
lich auch unter verschiedenen 
Namen) zu sichern. (ASS-File 
nennt man das vom Assembler 
erzeugte Maschinenpro- 
gramm, im Gegensatz zum 
SRC-File bzw. Quellprogramm, 
welches das selbstgeschriebe- 
ne Programm darstellt.) 
Um Speicherdoppelbelegun- 
gen zu vermeiden, kann der 
Assembler das ASS-File auch 
direkt auf Diskette ablegen 
(siehe Assemblerstart). Unter 
diesen Bedingungen kann ",x“ 
entfallen, da ein Kopieren dann 
nur von Diskette auf Diskette 
möglich ist. 

ACHTUNG: 

Da die VC 1541 kein Doppellauf- 

werk ist, wird das Maschinenpro- 

gramm in diesem Fall zum Disket- 

tenwechsel in den Rechner gela- 

den. 

Ein im Arbeitsspeicher befindli- 

ches Programm (zum Beispiel Ihr 

Quellprogramm) kann hierdurch 

gelöscht werden! 
Der Hinweis "SRC-FILE GESI- 
CHERT?" erinnert vorher an 


diese Tatsache und wartet auf $ 
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die Quittierung durch "SPACE" 
oder den Abbruch durch 
“RUN/STOP". 
Die wahlweise Zahlendarstel- 
lungsform: 


DEZ: Stellt alle Ausgaben (im Zu- 


sammenhang mit den Befeh- 
len MEM, SYM und der Li- 
stingausgabe) auf dezimale 
Darstellung um. In diesem 


.. ermöglicht das Einteilen der 
Kommentare in wichtige/weniger 
wichtige und vorläufige Bemer- 
kungen. Ein Quellprogramm wird 
dadurch erheblich gekürzt, ob- 
wohl nötige Erläuterungen weiter- 
bestehen. 

Diskettenbefehle: 
DSK: Momentane Fehlermel- 
dung einlesen und ausge- 


lich deren Nummer und 

Meldung ausgewiesen. Die 

Fehlerliste des ERR-Befehls 

bleibt auch nach Lade-, 

Speicher- oder Korrigier- 

vorgängen erhalten und 

wird erst durch ein erneutes 
Assemblieren neu erstellt. 

FND* text“: Sucht das Quellpro- 

gramm nach der Zei- 


Modus befindet sich der As- ben. chenkette "text" ab. 
sembler nach dem Laden. DSK $: Directory ohne Programm- Enthält der String ein 
HEX: Umstellung auf hexadezima- verlust listen. “?", so hat dieses eine 


le Zahlenausgabe. DSK "Befehlsstring" „Jokerfunktion", das 

Der DELETE-Befehl Übermittelt der Floppy heißt an seiner Stelle 

Format: den Befehlsstring. wird ein beliebiges 
DEL a—b Beispiel: DSK "S:PROBE" Zeichen akzeptiert. 

Löscht die Zeilen im Intervall sratcht das Programm Zeilen, in denen 

von a bis b. Fehlt a, so wird "PROBE" “text“ vorkommt, wer- 

a=0 gesetzt, fehlt b, so gilt: Der Fehlerbefehl: den vollständig geli- 


b=65538. ERR: Gibt beliebig oft die beim stet. 

Ist a>b oder befindet sich kei- Assemblieren gefundenen Der MEMORY-Befehl 

ne Zeile im Bereich a—b, wird Fehler sowie deren Gesamt- MEM: Zeigt die Speichergren- 
"SYNTAX ERROR“ ausgege- zahl aus. zen sowie die Längen von 


ben. 

Löschen der Kommentare: 

DLK: Löscht alle Kommentare, die 
einem ";" folgen. Kommenta- 
re angeführt durch “!" blei- 
ben erhalten. 


Gelistet wird die jeweilige 
Zeile und die ihr zugeordne- 
te Fehlermeldung. Befindet 
sich die fehlerhafte Zeile ge- 
rade nicht im Speicher (bei 
‚ME möglich), so wird ledig- 


Das folgende Listing wurde im DEZ-Modus ausgegeben. 


Quell- und (zuletzt er- 
zeugtem) Maschinenpro- 
gramm an. Als Pro- 
grammende wird jeweils 
der nächste nicht belegte 
Speicherplatz ausgewie- 


sen. 
Beispiel: MEM 


(DEZ-Modus) ASS-FILE: 10900/ 

* + assembler xrl * * seite : 1 src-file ; textausgabe 11050/ 150 BYTES 
10 Programm gibt „dies ist ein beispieltext" auf dem SRC-FILE : 2049/ 

20 Bildschirm aus. Zu starten mit SYS 10000 er BYTES 


100° |! 
110 bsout 


= Sifld2 


‚Akku auf Bildschirm ausgeben 


Das Format lautet: 


120 zeiger 36 ‚36+37, Zeiger auf Textzeichen Programmtyp: un- 
189} tere Grenze/obere 
10000 200 *= 10000 ‚Startadresse des Programms Grenze/Länge 
10000 162 210 start Idx#<text ITextadressealsTextzeiger | OUT: Ausstieg aus dem AS- 
10002 169 220 Ida#>text Isetzen SEMBLER XR|. Er bleibt 
10004 134 230 stx zeiger erhalten und kann bei 
10006 133 240 sta zeiger+1 Bedarf erneut und ohne 
| 10008 50 Programmverlust (mit 
10008 160 260 ldy #0 ‚Indexregister zurücksetzen SYS 49152) gestartet wer- 
10010 177 270  txtout Ida (zeiger),y !Textzeichen laden den. 
10012 240 7 280 Textendekennung (0) gefunden] Der RENUMBER-Befehl 
10014 32 210 255 290 IZeichen ausgeben Format: 
10017 200 300 ‚Zeiger auf nächstes Zeichen REN a,b,c—d 


10018 76 26 39 310 ‚weitermachen Ermöglicht eine strukturierte Um- 
10021 320 !Rückkehr zu Basic benennung der Zeilennummern. 


10022 30 Es ist: 


10022 73 69 400 Text ablegen a neue Startnummer des 

10030 32 69 73 410 im Text können auch Steuer- Blocks von c—d 

10038 83 80 73° 420 tx „spieltext‘ !zeichen stehen b  Schrittweite der neuen Nu- 

10047 0 430 ‚by 13,0 ;'RETURN" und Endekennung merlerung 

10049 40 |! c—d Bereichsangabe der alten 

10049 500 Zeilennummern (analog der 
bei DEL oder LIST) | 
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Werden c,d oder beide wegge- 
lassen, wird die Bereichseingren- 
zung ebenfalls wie beim LIST-Be- 
fehl vorgenommen. 


REN a,b numeriert daher das 
gesamte Programm um. 

Durch die Möglichkeit, nur Inter- 
valle mit neuen Nummern zu ver- 
sehen, können Fehler auftreten. 

l. a wurde so klein gewählt, daß 


vorstehende Zeilennummern 
doppelt belegt würden. 
Beispielprogramm: 

1003 

Nez 

120 14% 

1807; 


Wird nun “REN 110,5,120—" 
eingegeben, so wird die alte 
Zeile 120 in 110 umbenannt, wo- 
durch die alte Zeile 100 und die 
alte Zeile 120 (also beide) mit 
Nummer 110 beginnt. Daher 
unterbleibt in diesem Fall die 
Umbenennung und "ILLEGAL 
QUANTITY" wird ausgegeben. 

2. a oder aber b wurden so ge- 
wählt, daß nachfolgende Zei- 
lennummern doppelt belegt 
würden. 

Beispiel: gegeben sei wieder 
das obige Programm. 

Bei "REN 110,10,100—120" wür- 
de die alte Zeile 120 in 130 um- 
benannt. Auch hier wird daher 
nicht neu numeriert, sondern 
die Meldung "ILLEGAL QUAN- 
TITY" ausgegeben. Zusätzlich 
erscheint die Zeilennummer, 
die Ihrem Wunsch entspre- 
chend als letzte erzeugt wer- 
den sollte (hier daher 130). 
Abhilfe kann entweder die 
Verkleinerung der Schrittweite 
(b), zum Beispiel "REN 
110,5,100—120", oder aber 
auch eine Verkleinerung der 
Startnummer (zum Beispiel 
a=90) schaffen. 

Natürlich ist es ebenso mög- 
lich, die nachfolgenden Zeilen 
vorweg durch REN-Befehle zu 
„verschieben“. 

3. Die neuen Zeilennummern 
würden die Grenze 65535 über- 
schreiten. Es wird dann die 
letzte noch zulässige Nummer 
sowie "ILLEGAL QUANTITY"' 
ausgegeben. 

Ausgabe der Symboltabelle: 

SYM: Gibt alle Symbole alphanu- 
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merisch geordnet mit den 
zugehörigen Zahlenwerten 
(Adressen) aus. Symbole, 
die definiert, jedoch vom 
Programm nicht benutzt 
wurden (daher überflüssig 
sind oder nur der Übersicht- 


lichkeit dienen), werden 
ebenfalls sortiert ange- 
hängt. 


Diese Ausgabe kann durch 
“CTRL“ verlangsamt, durch 
"SPACE" angehalten (und 
fortgesetzt) und mit "RUN/ 
STOP" abgebrochen wer- 
den. 

Wie die Fehlerliste kann 
auch diese Tabelle bis zum 
erneuten AÄssembliervor- 
gang beliebig häufig ausge- 
geben werden. 

SYMD: Diese kleine Variante 
des SYM-Befehls erzeugt 
die Symboltabelle direkt 
auf dem Drucker. 

Bei beiden Befehlen wird die An- 

zahl der verwendeten Symbole 

ausgewiesen. 

Der TAB-Befehl (oder: Bildschirm- 

löschen mit "RUN/STOP RESTO- 

RE'?) 

Durch die oben erwähnte Tasten- 

kombination werden verschiede- 

ne Assemblerfunktionen (Beispiel: 

Tabulator) außer Betrieb gesetzt. 

Dies kann durch den TAB-Befehl 

rückgängig gemacht werden. 

2.3 Sonstige Funktionen des Edi- 

tors 

Gesteuert über die Funktionsta- 

sten springt der Cursor den je- 

weils nächsten Zeilenblock an. 

Fl: Startposition für Symbol 

F3: Startposition für Mnemonic 

FS: Startposition für Operand 

F7: Startposition für Kommentar 

Den Tabulator benutzt man, wenn 

direkt bei der Eingabe Wert auf 

ein „sauberes“ Aussehen gelegt 
wird. Durch den Editor gelistete 

Zeilen werden automatisch im 

„Tabulatorformat" ausgegeben. 

Eine Zeilenendebegrenzung sorgt 

darüber hinaus für ein ordentli- 

ches Listing bei Druckerausgabe. 

Durch die Tastenkombination 

SHIFT/CTRL bzw. C=/CTRL 

kann zwischen zwei Farbkombina- 

tionen des Bildschirmes umge- 
schaltet werden. Die zugehörigen 

Speicherstellen (zur Verwirkli- 
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chung eigener Wünsche) sind fol- 
gend aufgeführt. 
Tastenkombination / Rahmenfarbe 


SHIFT/CTRL 49220 
C=/CTRL 49233 
Bildfarbe / Schriftfarbe 
49222 49224 
49235 49237 


Zu setzen sind die üblichen Farb- 
codes, beschrieben im Handbuch 
des C64. 
Der Assembler 
Nach Eingabe des ASS-Befehls 
(Erscheinen einer Kopfzeile) wird 
nach dem Namen des SRC-FILES 
(Quellprogrammname) gefragt. 
Befindet sich dieses nicht im Spei- 
cher oder will man weitere Pro- 
gramme durch .ME (siehe Pseu- 
doanweisungen) nachladen las- 
sen, so ist diese Eingabe zwin- 
gend notwendig, um das richtige 
Quellprogramm zu identifizieren. 
Andernfalls drückt man die RE- 
TURN-Taste. 
Danach wird eingegeben, auf wel- 
chem Speichermedium (Diskette, 
Kassette, Speicher) sich das SRC- 
FILE befindet. Bei-"Speicher" RE- 
TURN drücken. 
Die jetzt erfolgende Eingabe gibt 
Möglichkeit, die Speicherbele- 
gung zu beeinflussen, um bei- 
spielsweise Quell- und Maschi- 
nenprogramm gleichzeitig im 
Speicher zu haben. Man gibt die 
Adresse an, ab der das Quellpro- 
gramm eingeladen werden soll. 
Da der momentane BASIC-Start 
vorgegeben wird, muß man, wenn 
keine Änderung erwünscht ist, 
wieder RETURN drücken. 
Eine eventuelle Eingabe kann in 
hexa- (vorgestelltes $-Zeichen!) 
oder dezimaler Form erfolgen. 
Hierzu eine Erläuterung: Der 
momentane BASIC-Start (= 
Speicherbeginn für Quellpro- 
gramme) ist in den Speicher- 
stellen 43/44 abgelegt (Lo- 


wer-/Higherbyte, normaler- 
weise 1/8, entspricht 8*256+1 
= 2049). 


Durch die Befehlsfolge: POKE 
44,16:POKE4096,0:NEW haben 
Sie den BASIC-Start nach 4097 
„hochgelegt". Der Bereich von 
2049 bis 4095 ist jetzt geschützt 
und kann mit einem Maschi- 
nenprogramm belegt werden. 
Diese ganze Prozedur erspart® 
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seite: 1 
10 volume 
20  fredhi 
30 wave 
40  ausklg 


* * assembler xrl * * 


src-file : beep 
‚Lautstärkeregister 
;Tonhöhe 10-Byte 
;Wellenformregister 
‚Ausklingzeit 


54296 
94273 
54276 
54277 


100 ;-Tongenerator-vorbereiten — 
110 *= 10000. ;Startadresse 


$2710 $a9 $0a 120 init 
$2712 $8d $18 $d4 130 
$2115 $a9 $09 140 
$2117 $8d $05 $d4 150 
$27la $a9 $lf 160 
$27lc $8d $01 $d4 170 


$2720 200 ;-Ton-erzeugen. 


$2720 $a2 $10 210 beep 
92722 $8e $04 $d4 220 


260 ; 


ldx #16 
stx wave 
230 inx 
240 stx wave 
250 rts 


Ida #10 
sta volume 
lda#9 

sta ausklg 
Ida #31 
sta freghi 
$a7lf $60 180 rts 


Lautstärke (0—15) setzen 
(0-15) 


‚Tonhöhe (0—255) 
;Wellenform = Dreieck 


alter" Ton aus 


‚Ton ein 


300 ‚Dieses Programm erzeugt einen kurzen Ton, der zum Beispiel 
310 ;als Zeilenende-Hinweis benutzt werden kann. 

320 ;Vor Nutzung muß diese Routine einmalig mit SYS 10000 

330 ‚aktiviert werden (Initialisierung genannt). 

340 ‚Jeder weitere Aufruf mit SYS 10016 (Adresse von beep) 

350 ‚erzeugt dann den Ton. 


$272a 
ass-file : $2710/$272a/ $la bytes 
O fehler 6 symbole 


Beispiel 2: Das kurze Assemblerprogramm im DEZ-Modus 


man sich, indem man die obige 
Eingabe mit „4097" belegt. 
Die nächste Eingabe betrifft die 


Ablage des Maschinenpro- 
gramms. 
l. Simulation: 


Das übersetzte ASS-FILE wird 
nicht abgelegt. Diese (schnellste) 
Betriebsart dient insbesondere 
zur Fehlersuche und zur Kontrolle, 
bevor zum Beispiel ein Listing auf 
Drucker ausgegeben wird. 

2. Speicher: 

Das ASS-FILE wird an die Adres- 
se im Speicher abgelegt, die im 
Quelltext durch "*= " (siehe 
Pseudoanweisungen) definiert 
wurde. Daher darf sich in diesem 
Bereich kein weiteres Programm 
(Assembler oder Quellprogramm) 
befinden. Mit Hilfe des COP-Be- 
fehls speichert man das erzeugte 
ASS-FILE ab. 

3, Diskette: 

Besteht für die Ablage des Ma- 
schinenprogramms kein Platz im 
Speicher (weil anderweitig be- 
legt), so kann der ASSEMBLER 
XR1 das Maschinenprogramm di- 
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rekt auf Diskette schreiben. Es ist 
dann aber kein lauffähiges Pro- 
gramm, sondern lediglich eine re- 
lative Datei unter dem Namen 
“"XR1l ASSFILE". Durch den COP- 
Befehl macht man hieraus ein lauf- 
fähiges Programm. 

Hinweis: Die angelegte relative 
Datei belegt (unabhängig von der 
Länge des ASS-FILES) 262 Blocks, 
die auf der Diskette noch frei sein 
müssen. Da das erstmalige Anle- 
gen dieser Datei über zwei Minu- 
ten dauert, ist es sinnvoll, immer 
die gleiche „Arbeitsdiskette“ mit 
einer bestehenden Datei zu benut- 
zen. Die Zugriffszeit verkürzt sich 
so auf etwa zwei Sekunden. Kopie- 
ren von dieser Datei ist nur auf 
Diskette möglich. 

Die letzte Eingabe betrifft die Aus- 
gabe eines Assemblerlistings. 

1. Bild: 

Das Listing wird (während Pass 2) 
formatiert auf dem Bildschirm aus- 
gegeben. 

2. Drucker: 

Ebenfalls formatierte Listingaus- 
gabe, jedoch direkt auf einen 


Drucker. Dabei wird (korrektes 
Einspannen vorausgesetzt) die Pa- 
pierperforation übersprungen. Je- 
des Blatt wird durch den Pro- 
grammnamen und eine durchlau- 
fende Seitenzahl angeführt. Die- 
ses so entstandene Listing kann 


nachfolgend zu einem ordentli- 


chen Heft gebunden werden. 
Je nach Blattlänge und eingestell- 
tem Vorschub kann die maximale 
Zeilenzahl pro Seite (—3, da die 
Überschrift nicht mitgezählt wird) 
in Speicherstelle 48622 eingestellt 
werden. Vorbesetzt ist dieser Pa- 
rameter mit 69 (entspricht der üb- 
lichen Zeilenzahl von 72). Darüber 
hinaus kann in Speicherstelle 
48610 die davon mit Listingzeilen 
zu beschreibende Anzahl be- 
stimmt werden (wiederum Über- 
schrift nicht mitgerechnet! Vorein- 
stellung 60). 
Wird die Druckerausgabe ge- 
wählt, ist aber keiner angeschlos- 
sen oder eingeschaltet, so wird 
das seitenweise Listing auf dem 
Monitor erzeugt und ermöglicht so 
das AÄbschätzen der benötigten 
Blattzahl. 
In beiden Fällen kann die Ausga- 
be des Listings durch die Leerta- 
ste gestoppt/fortgesetzt und mit- 
tels "CTRL“ verlangsamt werden. 
Ein Abbruch des Assembliervor- 
ganges ist in Pass 2 jederzeit 
durch die "RUN/STOP"-Taste 
möglich. Um undefinierte Zustän- 
de (zum Beispiel nicht geschlosse- 
ne Dateien) zu vermeiden, darf 
dies jedoch erst nach dem Anhal- 
ten (Leertaste) erfolgen. 
Während der Menüeingaben ist 
ein Abbruch (ebenfalls durch 
„RUN/STOP"), jedoch nur in den 
„GET-Schleifen“, möglich. 
Der Befehlssatz des Assemblers 
Die Prozessorbefehle: 
Die Befehle des Prozessors 6502/ 
6510 sowie deren Schreibweise 
sind Standard. 
Die Pseudoanweisungen: 
Diese zusätzlichen Befehle wer- 
den nur vom Assembler (nicht 
vom Prozessor) ausgeführt. Sie 
dienen der Text- oder Tabellener- 
stellung oder definieren Adressen 
und bestimmte Arbeitsweisen des 
Assemblers. 
l.*«= Legt die Ablageadresse 
(die Adresse, ab der das 


stehen 


ASS-FILE 
soll) fest. Wird diese Defini- 
tion vergessen (oder zu spät 
im Quellprogramm festge- 


später 


legt) -oder überschreitet 
diese Ablageadresse (im 
Listing ganz links ausgewie- 
sen) die Grenze 65535, so 
wird der Assembliervor- 
gang mit der Meldung: 
“x Ablageadresse unzu- 
lässig!“ abgebrochen, 
wobei x die Zeilennummer 
darstellt, in der der Fehler 
aufgetreten ist. 
Da dieser Befehl beim AS- 
SEMBLER XRl beliebig oft 
innerhalb eines Quelltextes 
benutzt werden darf, er- 
möglicht er vielfältige Ver- 
schachtelungen von Tabel- 
len und Maschinenpro- 
grammen, unabhängig der 
Folge ihres Auftretens im 
Quellprogramm. 
Die Grenzen des ASS- 
FILES (im MEM-Befehl aus- 
gewiesen) werden durch 
die kleinste und größte im 
Programm auftretende Ab- 
lageadresse gebildet. Da- 
her gestattet der "* = "-Be- 
fehl das Einbinden anderer 
Speicherbereiche in Ihr 
Programm. Hierzu ein klei- 
nes Beispiel: 
Im Speicherbereich 
$1000-$1FFF befinden sich 
Texte, die man für das Pro- 
gramm nutzen und später 
mit abspeichern will. Das 
Programm legt man daher 
an die Adresse $2000. 
100 *= $1000 ‚Programmanfang 
$1000 setzen, Ta- 
110 *= $2000 ;belle einbinden. Start- 
adresse des 
‚Programms festlegen. 


auf 


120 LDA.... 
2. = Adr. 
Weist dem links von "=" stehen- 
dem Symbol den Wert rechts die- 
ses Zeichens zu, entspricht daher 
der Variablendefinition in BASIC. 
"Adr.“ kann ein beliebiger (syn- 
taktisch richtiger) Operand sein. 
3. .BY Byte 

Legt folgende Bytewerte (Wert 
zwischen 0 und 255) an die durch 
die Ablageadresse (= momenta- 
ner Programmzeiger) gekenn- 
zeichnete Stelle ab. Durch Komma 
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getrennt sind mehrere ÖOperan- 
den in einer Zeile zulässig. 
Beispiel: 

100 * = 2049 

‚Ablageadresse = 2049 

110 .BY3,"A",$10 

‚Werte 3,65,16 in 2049,50,51 


ablegen 

4. ‚AD Adr. 

Ähnlich dem .BY-Befehl legt der 
Assembler hier 16-Bit-Zahlen 
(0—65535) im Adreßformat, das 
heißt Lower-Higherbyte ab. 

8. .TX "text" 


Legt "text" im ASCII-Code ab. 

6. .BC 

Legt "text" im Bildschirmcode ab. 
7. .BR 

Legt "text" im reversen Bild- 
schirmcode ab. 

Für die fünf obigen Befehle gilt: Im 
Listing werden (um es nicht un- 
übersichtlich zu machen) nur die 
ersten drei Bytes ausgewiesen. 
8..EN 

Endekennung eines Programmes. 
Der Befehl kann entfallen und 
dient in erster Linie einer künstli- 
chen Bildung zum Beispiel bei der 
Fehlersuche. Fehlt .EN, so wird 
die letzte Programmzeile als Ende 
erkannt. 

9. .ME "Name“ = MERGE: 
Beispiel: 200  .ME "QPROG2" 
Steht dieser Befehl am Ende eines 
Quellprogrammes, wird beim As- 
semblieren an dieser Stelle das 
Quellprogramm "QPROG2" nach- 
geladen und weiter bearbeitet. 
Um Koordinationsschwierigkeiten 
bei Fehlermeldungen zu vermei- 
den, sollte die erste Zeilennum- 
mer von QPROG2 bereits größer 
als die höchste Zeilennummer des 
im Speicher befindlichen Pro- 
grammes, QPROG], sein. 

Da es sich hier um einen Zwei- 
pass-Assembler handelt (er muß 
am Ende von QPROG2 wieder mit 
QPROG]1 anfangen), muß sich 
QPROG]I ebenfalls auf der Disket- 
te befinden. 

ACHTUNG: 

Am Ende von QPROG2 darf nicht 
(ME '"QPROGI!‘) stehen, da 
der Assembler dann im Passl 
QPROG] erneut abarbeiten wür- 
de (...). 

Er findet zu Beginn von Pass2 
QPROG] selbst wieder. 

Befindet sich QPROG2 nicht auf 


der Diskette, wird die Meldung 
„FILE NOT FOUND" ausgegeben 
und der Assembliervorgang ab- 
gebrochen. 
Hat man vergessen, den Namen 
"QPROGI“ einzugeben, wird mit 
der Fehlermeldung "VO ER- 
ROR#" abgebrochen. Auf diese 
Art können mehr als zwei Pro- 
gramme miteinander verknüpft 
werden. 
Die Kapazität von 640 Symbolen 
gilt für alle Programme zusam- 
men. Daher können in OQPROG2 
Symbole stehen, die in QPROG] 
definiert worden sind. 
Fehlermeldungen und Ursachen 
Da die Programmzeilen bei ihrer 
Eingabe bereits weitgehend auf 
ihre Richtigkeit überprüft werden, 
sind Syntax- oder Ädressierungs- 
fehler von vornherein ausge- 
schlossen. Übrig bleiben die fol- 
genden fünf Fehler, deren (häufig- 
ste) Ursachen hier kurz beschrie- 
ben sind: 
1. BRANCH-SPRUNG ZU WEIT 
Ein bedingter Sprung (Branch- 
Sprung) wurde zu weit gewählt 
oder führt auf sich selbst zurück 
(Endlosschleife!) 
2. DOPPELTES LABEL 
Ein Symbol (auch Label genannt) 
wurde unter gleichem Namen 
mehrfach definiert. Wichtig ist, 
daß der Assembler nur die im 
Programm erste Wertzuweisung 
übernimmt und einsetzt, was 
manchmal zu Folgefehlern führt. 
3. LABEL NICHT DEFINIERT 
Ein Symbol wurde im Programm 
angesprochen, jedoch nicht oder 
zu spät definiert und besitzt daher 
keinen Wert. 
4. OPERAND-BEREICH 
Durch die Verknüpfung mehrerer 
Operanden wurde der Gesamt- 
ausdruck größer als 65535 oder 
kleiner als 0. Ist dieser Wert den- 
noch zulässig, so wird er auch ein- 
gesetzt. 
5. OPERAND UNZULÄSSIG 
Wo ein 8-Bit-Wert (0—255) zulässig 
wäre (zum Beispiel bei .BY), wur- 
de ein 16-Bit-Wert (256—65535) ge- 
wählt. 
4.0 Speicherbelegung des Ässem- 
blers 
$0200 — $0230 Datenspeicher 
während Assem- 
blerlauf 
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$033E — $035E Datenspeicher 
bei FIND, AUTO 

$A000 — $B3FF Symboltabelle 
(maximal 640 Sym- 
bole) 

$B400 — $B4FF Fehlertabelle 
(maximal 85 Feh- 
ler) 

$B500 — $CFFF Hauptprogramm 


Kurzbeschreibung zu Beispiel 2: 
Gibt man nach Assemblierung 


des Beispielprogrammes 2 den 
Befehl SYM D ein, folgt die Aus- 
gabe: 

bsout 65490 endel0021 text 10022 
txtout 10010 start 10020 zeiger 36 

6 Symbole 

Sämtliche Adressangaben sind in 
dezimaler Schreibweise ausgege- 
ben. 

Das Programm ist als kombinier- 
ter Hex-Dump Basic-Lader abge- 
druckt. Wie man mit dieser Art 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
> data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


290,08,00,00,22,8d,31,42, 
49,54,54,45,28,40,41,44, 
45,4e,20,4d,43,54,3a,2®, 
4c,4f,41,44,22,41,53,53, 
45,4d,42,4c,45,52,20,58, 
52,31,22,20,38,2c,31,20, 
00,00,00,93,11,2a,2a,20, 
43,36,34,20,41,53,53,45, 
4d,42,4c,45,52,20,58,52, 
31,20,20,42,59,20,46,2e, 
20,42,55,53,43,48,46,4F, 
52,54,20,2a,2a,04,00,0d, 
20,41,53,53,2d,46,49,4c, 
45,20,3a,29,00,20,42,59, 


54,45,53,0d,20,04,20,53, ' 


52,.13;29,.18;49.40,45,20, 
3a,20,00,2d,2d,20,56,4f, 
4e,80d,02d,20,44,49,53,4b, 
13.53.57.95:26.,43.41.83, 
53, 49,54,9%, 19,68 ,23,58, 
45,49,43, 18,45,92,20,20, 
09,29,28,44;2f ‚43;BE,SEF} 
29,00,2d,0d,28,50,52,4f, 
27.,20:43,70.49,53,9%7, 31, 
52,54, 20,22,45,49,208,38, 
20,00,04,0d4,20,44,49,53, 
U HBNSE SEN YST20 53,58 
45,49:43.48 .495.52,26.,53, 
23 .40,99,40,31, 53, 15, 4E, 
4e8,20,20,28,44,2f,53,2F, 
5Sf,23,08,2d,2d,2d,20,4c, 
49,53,54,49,48,47,20,20, 
3a,20,44,52,55,43,4b,45, 
52,28 ,;42,497,)/4c ,44 2; Me; 
45,49, 48,20, 20,28,44;, 28, 
42,2f,5f,29,00,0d4,0d,20, 
50,41,53,53,20,31,2d,2®, 
280,58,41,53,53,28,32,0d, 
00,50,08,00,20,46,45,48, 
4c,45,52,00,3F,4f,50,45, 
52,31,.28,.433:,29,55, 4e, 58, 
55,20,47,49,33,33,49;47,, 
00,3F,4c,41,42,45,4c,20, 
48,49,43,48,54,20,44,45, 
46,49,48,49,45,52,54,20, 
32, 44,4, 50,50, 45, 40, 3, 
45,53,20,40;, 41,42 ‚45; Mo; 
00,3Ff,42,52,41,48,43,48B, 
2d,53,50,52,55,48,47,20, 
5a,55,20,57,45,49,54,08, 
35, 4,50,45;,52,42 Me, 483; 
24,42 ,435,52,45,49, 43,48; 
00,2d4,5a,55,20,56,49,45, 
46:47 EB, AR, HL Me, 45,46, 
53,20,21,00,0d,53,55,2®, 
56,49,35,40,45,28;46,45, 
48,4c,45,52,20,21,00,20, 
53,39, 40,. 36,48 ,16,49,00, 
08,20,41,92,40,41,47,45, 
41.44. 52:45,53:53:35,80; 
55,485 58,55, 40,41,495,53; 
53,49,47,20,21,80,20,2a, 
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Listings umgeht, steht auf Seite 82. 
Wird das Programm als DATA-La- 
der abgedruckt, speichert man 
die Daten, startet das Programm 
mit RUN und gibt: 


POKE 43, 0: POKE 44,181 
POKE 45,231: POKE 46,207 
SAVE"XR1',8 


Benutzt man den Checker, ist als 
Startadresse b500 einzugeben. 


F. Buschfort mem 


23,20,41,53,53,45,4d,42, 
4c,45,52,20,58,52,31,20, 
Da,2a,20,20,20,20,20,20, 
20,20,20,53,45,49,54,45, 
20,33,00,2d,0d,28,53,52, 
43,2d4,46,49,40,45,20,47, 
35553.39,43,48,35,52,59, 
20,3Ff,04,20,44,41,54,45, 
49,2d,44,49,53,4b,45,54, 
54.45 20,45;39 48,47 ,45, 
4c,45,47,54,20,3F,2d,0d, 
00,20,53,49,45,4c,44,49, 
53,45,45,54, 54,45, 20,45, 
49 ,4e8,4c0,45,47,45,4e,0d, 
08,42,42, Ye ,42,42,42,40, 
4y2,90543,42,90731,45:53, 
53,4339,39,33, 39753, 54,5%, 
54,44,44,52,52,48,42,50, 
50,50,50,53,53,53,43,43, 
43,43, ,40,46,52,52,41,4c, 
49,44)53,53, 43,43, 32,4a, 
Ya,2De,De,2e,2e,Ze,2e,2e, 
2a3,3d,45,4e,43,43,4d,50, 
56,56,44,4d,4e,52,44,4f, 
42,54,4e,4e,41,41,58,59, 
58,53,45,45,54,54,4f,52, 
48,4c0,48,4c,45,45,45,4c, 
Yo.lc;,4o, 44,44 4E 46,53, 
53,4e,45,54,54,50,50,49, 
53.43.92,11,54, 32 42,30, 
45,34,20,51,45,53,43,49, 
4c,43,53,41,50,44,41,43, 
52,43,41,58,59,58,59,41, 
41,53,58,58,59,53,49,50, 
4b,41,41,50,50,43,49,44, 
43,49,44,56,59,58,52,"c, 
4c,52,43,43,59,58,59,58, 
54,52,50,59,44,58,43,52, 
45,4e,20,20,44,01,08,43, 
0a2,01,0d,13,00,44,01,08, 
53,03,01,0d,13,08,44,0c, 
04,42,14,80,04,19,00,41, 
53,45,54,4d ,44,a5,52,45, 
TE, NL, 13,10, 7r,44,50, 
53,59)82, 41,45 Ye ,/44,45, 
58,55,45,50,4f ,45,45,53, 
47,53,40,52,42 ,4d,/4b; 22; 
4e,54,a4,40,44,50,58,5a, 
435735, 70. 39, 68..06,14.607, 
dd,7b,88,4c,7e,c1,e®d,1if, 
26,9d,£5,ca; 01,01,0r;01; 
E1:.01:66.01,0.3,63,03;63; 
ei,c1,04,04,20,25,c8,8%, 
02,a2,ff,a0,00,e8,ed,41, 
£f0,63,b1,7a,dd,61,b7,d, 
£f2,c8,b1,7a,dd,a2,b7,d®, 
8a,c8,b1,7a,dd,e3,b7,d®, 
e2,8a,09,80,24,02,39,00, 
02,cB,cB,a6,7a,eB,88,8B, 
86,ff,bd,00,02,£0,5b,c9, 
20,d0,32,20,25,c8,B6, ff, 


bBd8 1240 data 29,1e,c8,f0,43,a9,00,85, Fo bb48 2018 data be,60,a0,00,b1,26,f0,Ff3, 7e 
bBed 1250 data 58,bd,00,02,f0,44,20,0c, 59 bb48B 2028 data 20,Ffc,c9,b1,26,29,7f,20, 39 
bBe8 12608 data c8,c39,20,f0,05,20,1e,c8, 6b bb5® 2030 data d2,ff,c8,b1,26,c0,06,f0, 67 
bBf® 1270 data d®,04,24,58,F0,07,e8,99, ce bb58 2040 data 07,aa,d0,f3,39,20,d0,ef, a4 
bBfB 1280 data 80,02,c8,d0,e4,20,25,08, 17 bbE® 2050 data aa,20,06,ca,a9,3d,20,d2, 80 
bS02 12390 data 29,1e,c8,f®,1b,39,91,20, be bb6EB 2069 data FFf,20,06,ca,c8,b1,26,20, 38 
b928 1308 data d2,ff,a5,d3,c9,27,b8,f5, o2 bb7® 20708 data ce,c8,c6,02,f0,09,a5,02, s2 
bS10 131® data a5,7a,85,d3,a9,3F,20,d2, 35 bb78 20850 data 29,03,f0,12,4c,fc,c9,a5, 77 
bS18 1328 data ff,a9,00,85,d3,4c,4c,c5, df bb88 2030 data 39a,c9,04,d0,05,a2,09,20, 53 
b320 1338 data 99,00,02,e8,c8,bd,20,02, bd bbBB 2108 data aa,c7,ad,fc,84,02,89,0d, a5 
b928 1348 data d®,f6,99,00,02,c8,c8,c8, ad bb98 2118 data 20,d2,ff,4c,ff,c8,84,93, 29 
b330 1350 data c8,c8,84,24,a4,02,be,00, bf bbS8 2128 data 20,4e,c9,98,84,FFf,F0,03, 75 
b338 1368 data 02,30,03,4c,ad,c5,86,25, d3 bbaß® 2138 data 45,02,c8,85,02,b1,7a,30, 21 
b340 1378 data c8,c8,b3,00,02,84,02,e8d, 59 bbaB 2142 data 08,c9,3b,f®,04,c9,30,b9, 48 
bS4B 1388 data 88,90,2F,e0,39,30,1c,e®, 84 bbbB 2150 data ef,84,09,a5,02,02,03,26, ac 
b350 1338 data a9,90,39,e0,af,90,1d,e®d, cf bbbB 2160 data FFf,9a,26,ff,0a,26,Ff,0a, F5 
b358 14008 data b3,90,1c,e0,b5,90,21,F0, b6 bbc® 2170 data 26,ff,85,26,85,28,a35,Fff, 89 
bS652 1410 data 19,e0,b6,F0,15,e0,b7,f®, fd bbc8 2188 data 69,20,85,27,85,29,a0,08, 22 
bS68 14208 data 1d,b9,2b,20,e8,b9,298,02, c6 bbd® 2190 data b1,26,f0,08,29,7F,d1,7a, 73 
b378 1430 data ba,28,1d,ba,20,41,ba,20, 76 bbdß8 2208 data F0,04,d0,29,08,85,93,18, 67 
b378 1442 data B0,ba,20,ae,ba,4c,8Bf,b9, 7c bbed 2210 data 65,09,28,84,02,28,60,c8, f2 
b382 1452 data 20,41,ba,4c,7a,b9,20,b8, 76 bbs8B 22208 data b1,73,30,0e,c9,3b,f0,8a, cc 
bSB8 14508 data ba,4c,7a,b3,20,e4,b3,a6, 7e bbf® 2238 data c9,30,90,06,d1,26,F®d,ef, cd 
b3930 1478 data Ff,86,7a,4c,05,b9,a2,200, 35 bbf8 2240 data d®,0b,c0,06,390,03,38,d®, d2 
b338 1482 data a5,25,c9,bf,b®,dc,c9,ba, 6c bc®0® 2250 data db,b1,26,f0,F39,29,di,ba, 4f 
b3a8 1430 data b0,21,e8,86,53,20,ab,b9, ic bc8B 2260 data dd,c4,f0,d0,20,03,84,02, 4a 
b3a38 1508 data 4c,8F,b9,28,b4,c5,c9,2c, ei bc1i® 2270 data 86,FFf,20,b3,c7,20,e4,Fff, 89 
b3b2 1512 data d®,05,86,53,c8,d®,f4,a5, Sc bc18 2280 data a4,022,a6,ff,dd,24,b8,F®, c9 
b3b8 1528 data 25,c39,b9,d0,02,06,5a,a6, f6 bc2® 2290 data 08,e8,e8,e8,88,d0,Ff5,f0, de 
b3c® 1539 data 53,d2,37,c9,be,f®,c5,b9, d3 bc28 2308 data e9,e8,bc,24,b8,20,d7,c6, 498 
b3c8 1542 data 00,02,c9,22,d8,c1,c8,b9, c2 bc38 2318 data e8,bd,24,b8B,4c,6c0,ca,78, c9 
b3d® 15598 data 00,02,f0,bb,c9,22,f0,03, c6 bce38 23208 data aS,a0,a2,b5,85,27,89,00, fd 
bSd8B 1560 data e8,d0,f3,83,F0,03,20,f9, 94 bc4® 2330 data 85,26,28,91,26,c8,d0,Ffb, a3 
b9s8 15708 data bS,40,8f,b9,a2,01,d0,12, al bc4B 2340 data e6,27,e4,27,d0,f5,8d,e3, 08 
b93eß 1588 data 20,b4,c5,a2,09,c9,2c,d®, ed bc58 2350 data cf ,8Bd,e4,cf,8d,e5,cf,85, 49 
bSf® 1590 data 2b,c8,b9,00,02,c9,59,d®, df bc58 2360 data fd,85,fe,85,fb,85,fc,85, dc 
b3f8 1600 data 23,08,20,19,c8,d0,1d,4c, 2c bc680 2378 data 9d,8d,14,02,8d,15,02,8d, OF 
bad® 1618 data c5,ba,a4,02,b9,00,02,c39, Se bc68 2388 data 17,02,89,ff,85,4b,85,4c, 32 
bad8 1628 data 28,d0,11,c8,20,b4,c5,c9, ®b bc7® 2398 data 60,c8,b1,5f,c9,23,F9,04, 7b 
bal® 1638 data 29,d0,09,a2,05,c8,b9,00, bB bc78 2400 data c9,28,d0,01,c8,22,00,86, Of 
balB 1648 data 02,4c,ed,b9,60,a4,02,b9, fo bc88 241® data 58,86,5c,86,5b,86,59,a2, 35 
ba2®0 1650 data 00,02,c9,28,d0,F6,c8,20, 20 bc88 2420 data 080,86,58,b1,5f,c9,3c,f@, 87 
ba28 1660 data b4,c5,c9,2c,d®,ee,a2,04, ®b bc938 2438 data 086,c9,3e,d0,07,a9,80,85,. 06 
ba3® 1670 data c8,b9,00,02,c9,58,d®,e4, 69 bcS8 2440 data 5a,c8,b1,5Ff,c9,27,d8,11, 44 
ba38 1688 data c8,b9,00,02,c9,29,f8,b3, e3 bca® 2450 data a5,5b,48,35,50,48,a5,59, 4d 
ba4® 1630 data 69,a4,02,a5,25,c9,8f,f0, 15 bca8 2469 data 48,a5,5a,48,c8,b1,5F,d®, 5b 
ba48 1708 data d3,c9,ab,30,04,c9,af,30, 7E bcb® 2478 data d2,c9,41,90,3F,20,96,bb, b2 
ba5® 1718 data 25,b9,00,02,c9,23,d@,c4, ic bcb8 2480 data d®,20,ba,ed,f5,b9,04,68, 6b 
ba5S8 17208 data c8,20,b4,c5,a5,25,c9,a9, 36 bcc® 2430 data 68,68,68,84,02,b1,5f,20, 55 
ba68 1730 data F®,10,c9,aa,f®,0c,c9,L3, £7 bec8 2508 data 1c0,c8,Ff0,0b,c9,2c,f8,07, be 
ba68 1748 data f®,28,c9,b4,F0,04,a2,03, 86 bedd 25108 data c9,29,F0,03,c8,d®d,ee,4c, 25 
ba7® 1750 data d®,88,a2,04,d0,84,a2,02, di bedßB 2520 data S5S,ca,ac,13,02,d0,06,b1, ac 
ba78 17608 data b9,80,02,c9,41,F0,23,60, 87 bced 2538 data 26,29,7F,91,26,20,06,b1, c7 
baB8 1778 data a4,022,20,b4,c5,c9,2c,d®, 66 bceß 2542 data 26,85,22,c8,b1,26,85,23, e8 
baß8 17808 data 24,c8,a2,07,85,25,c9,aa, 35 bcf® 2550 data a4,02,d0,4f,c9,30,390,06, 44 
baS® 1798 data f®,14,c9,b2,f0,0F,c9,bi1, ea bef8 2560 data 20,c9,bd,4c,43,bd,c9,24, £3 
baS8 1808 data d®,01,ca,b9,20,02,c9,58, “4e bd®?® 2578 data d®,20,c8,b1,5Ff,20,ac,bd, f4 
baad 1810 data d®,2b,4c,f9,b9,ca,b9,00, c® bddB 2580 data B5,22,85,23,b1,5Ff,c9,30, af 
baaßB 1828 data 22,c9,59,f0,F5,60,a4,02, da bd1® 2590 data b0,05,86,23,40,43,bd,c9, ®a 
bab® 1830 data 29,b4,c5,a2,08,4c,fa,b9, 8c bd1i8 2608 data 3b,f0,f7,20,ac,bd,85,22, 74 
bab8 1842 data c9,28,d0,f1,c8,20,b4,c5, 16 bd2®d 2618 data d0,21,c9,22,d0,09,c8,b1, 32 
bac® 1850 data a2,0a,4c,3c,ba,a4,02,88, 38 bd28 2620 data 5Sf,85,22,c8,c8,d0,e3,c9, 46 
bac8B 1868 data 8a,393,00,02,68,68,4c,ad, Be bd3® 2638 data 25,d0,3d,86,23,f90,04,c9, 7c 
bad® 1878 data c5,a5,26,36,27,18,69,08, 10 bd38 2640 data 31,26,22,08,b1,5f,e8,ed, bf 
badßB 1888 data 85,26,390,0d,e8,b3,d0,26, d8 bd4® 2659 data 09,d0,f4,a2,00,a5,5a,F0, 51 
baed 18908 data a9,00,85,26,a2,9F,88,86, 6c bd48 26608 data 08,10,04,85,23,85,22,86, 32 
bae8 19008 data 27,.4,29,d0,02,c5,28,60, a3 bdS® 2670 data 23,85,59,d0,44,18,a5,22, b7 
baf® 1912 data 20,Ba,bb,a9,00,a2,a0,85, 22 bd5S8 26808 data 65,5b,85,5b,a5,23,65,5c, be 
baf8 1928 data 28,86,29,85,26,86,27,85, 89 bd6ß 2690 data 85,50,90,02,84,58,b1,5Ff, 34 
bb0® 1938 data 57,86,58,a5,57,18,69,08, 24 bd6ßB 2708 data c9,3b,d0,04,98,4c,55,ca, 398 
bb@8 1940 data 85,57,90,08,a5,58,c9,b3, 18 bd7® 2718 data c9,27,d0,17,85,5b,85,22, 86 
bb1®8 1950 data fF®,26,e6,58,a0,00,b1,57, 58 bd78 2720 data a5,5c0,85,23,68,85,5a,68, 80 
bb18 1360 data f®d,083,d1,26,90,07,d0,e3, e6 bdS® 27308 data 85,59,68,85,5c,68,85,5b, 2d 
bb2® 1978 data c8,b1,57,d0,f5,a0,20,b1, 43 bd88B 2740 data c8,d®,b8,38,e9,2b,f0,04, 29 
bb28 19380 data 26,a3,b1,57,91,26,8a,91, 3a bd9® 2758. data c9,02,d0,d9,aa,c8,4c,85, 567 
bb3® 1998 data 57,c8,c0,08,d8,f1,f®,cb, “4a bdS8 2768 data bc,38,35,5b,e5,22,85,5b, b93 
bb38 2088 data 29,42,bb,78,20,d1,ba,d®, 5a bdad 2770 data a5,5c,e5,23,85,5c,b®,be, 25 
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2788 
2798 
28008 
2818 
2820 
2830 
2840 
2858 
2868 
2870 
2888 
2838 
2908 
2318 
2928 
2938 
2940 
2958 
23968 
29379 
2988 
2999 
30908 
3018 
3028 
3038 
3048 
3058 
3069 
3878 
3089 
3039 
31908 
3118 
3128 
3138 
3149 
3158 
3168 
3178 
3188 
3198 
3208 
3218 
3220 
3238 
3249 
3258 
3268 
32708 
3288 
32908 
3388 
3318 
3329 
3338 
3349 
3358 
3360 
3378 
3389 
3398 
3408 
3410 
34208 
3430 
3440 
3458 
3469 
3470 
3488 
34990 
3598 
3518 
3520 
3538 
3540 


84,58,98,ba,20,bf,bd,®a, 
0a,04,02,85,93,c8,b1,5f, 
20,bf,bd,05,93,c8,60,38, 
e3,30,c9,03,90,02,89,07, 
60,22,00,86,22,86,23,eS9, 
30,85,09,a5,23,85,93,a5, 
22,03,26,93,0a,26,93,65, 
22,85,22,85,93,65,23,85, 
23,06,22,26,23,b9,14,a5, 
2e2,65,09,85,22,90,04,66, 
23,F0,08,c8,b1,5f,20,da, 
c7,b8,cc,60,ad,16,22,d2, 
03,4c,60,ca,28,cc,ff,ae, 
16,22,30,25,20,50,F2,ad, 
15,02,d0,1a,a8,3c,8c,15, 
02,ad,17,02,F0,0d,a9,0d, 
c0,45,f0,07,c8,20,d2,ff, 
4c,28,be,20,0b,ca,ce,15, 
02,a6,4b,a5,4c,20,ce,cB, 
20,06,ca,a0,20,c4,02,30, 
28,28,fc,c9,20,06,ca,c8, 
c0,03,d8,Ff1,20,06,ca,a5, 
5f,48,25,60,48,a0,02,b1, 
Sf,aa,c8,b1,5f,86,14,85, 
15,84,49,20,6e,c8,4c,6fF, 
ca,be,1c,02,39,00,84,29, 
20,d6,c8,34,029,4c,4c,be, 
a5,2b,a6,2c,85,24,86,35, 
85,22,86,23,a2,00,a0,Ff, 
86,58,c8,b1,24,91,22,d®, 
2b,c0,81,f®,1a,c®,04,30, 
£f1,c8,84,02,a0,00,b1,22, 
85,24,c8,b1,22,85,25,a4, 
02,28,72,c7,4c,8e,be,BB, 
91,22,880,02,20,72,c7,86, 
22,a5,23,60,c0,04,30,ca, 
c9,3b,d8,0Ff,a5,58,d®,c2, 
c0,04,f0,03,Ba,f®d,be,ad, 
£ff,d®,c6,20,0c,c8,d®,b2, 
PESSESFR FREE ER ORSEP, 
BESTER SEESER SER SERIES ER 
EUER TEE MEESPR SER IRRE" 
ERSTER ERSEPSFEL FESTER, 
BESER ERBE. PELFE PL. PP, 
ERSPE,ERLER.EE ER BES 
BEFESER EDLER. BE SPIFF 
BUBE,EESERSER ER, DR, 
PISER PR SERIE SER RELER | 
PESTESERLERLER PR.CE SER, 
FESERSEDHRR TREE SER 
ERSTES EFAERAFT HE, ER HET, 
BESER.FE CE SER FE ER ER, 
EESETSER FELEE ER CE Se, 
FESERJREAER SEE SEE LP ER, 
DESPESPEJEL CE ER SPESER" 
BL.BESERSERLEE FELBEIFR, 
ERLEERSEDLER ELLE SCESSR, 
ITITTAITAR LANE 
ERSEESERLER LESER CR EE, 
STSEFPEOE FF LFR BESEN 
ASIEN AÄNITINN TEE 
BESRELELIBESPE DE FEB, 
EUER BE. EL SETS ELLE PR 
ERLERLEDLEELPE FETEIPE, 
BESRLLDRSERSERLERSERIER, 
ER,EP.EEFE ER LEE. EEE, 
RESET SEE;EELER,PRLPR FR, 
EESERSER,EL.EPLFELPRGER, 
EREURE HER DE SEL SEES TEIER, 
ERSEL ER :PE-TE, PETE GEE, 
FE ,EF,ER,EE,EE,ER,ER, FE, 
KEIRTAES LER EE FESPE PR, 
EESELZERSER SER PER FR, 
BESERAEESER ER FE LE FR, 
PERLE LEER FE FE, FR, 
20,£f3,06,c6,01,20,37,bc, 
e6,01,78,89,bf,a2,c0,8d, 
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16 
ad 
®c 
e6 
18 
Sc 
bd 
e7 
fc 
£3 
od 
4b 
Ef 
34 
a3 
e3 
dd 
bc 
35 
£3 
56 
da 
55 
35 
3e 
49 
ba 
b5 
07 
2b 
ad 
d3 
96 
81 
db 
62 
1-1] 
Sf 
37 
82 
1%]%] 
08 
08 
08 
08 
008 
08 
08 
08 
008 
[7]”) 
008 
02 
08 
08 
08 
08 
08 
02 
08 
08 
[J) 
08 
008 
02 
08 
08 
008 
88 
008 
08 
00 
08 
00 
08 
Ba 
03 


c01® 
c®18 
c028 
c028 
c038 
c038 
cd40 
c848 
c050 
c858 
c0d60 
cBd6B 
c070 
c078 
c088 
co8B 
c898 
c838 
cdad 
c®daB 
c®db® 
c®b8B 
cdcd 
cdcB 
c0dd® 
c8d8 
cded 
cde8 
cdf® 
caf8 
c108 
c188 
c11® 
c118 
c120 
c128 
c13® 
c138 
c14® 
c148 
c15®8 
c158 
c169 
c168 
c17® 
c178 
c18B® 
c1B8 
c19® 
c198 
cla® 
cla8 
c1b® 
c1b8 
cicd 
cicB 
c1d® 
c1d8 
cließd 
cle8B 
c1f® 
c1f8 
c290 
c2088 
c21® 
c218 
c228 
c228B 
c230 
c238 
c240 
c248 
c250 
c258 
c260 
c268 
c278 


3550 
3568 
3578 

3589 

3598 

3680 

3618 

36228 

3638 

3642 

3658 

3668 

3678 

3682 

3698 

3788 

371® 

3720 

3738 

3740 

3758 

3768 

3778 

3788 

3738 
3880 
3818 
38208 
3838 
3849 
3859 
3868 
3870 
3888 
3899 
3908 
3918 
39208 
3932 
3942 
39358 
39568 
3970 
3989 
3998 
4900 
4010 
4920 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4119 
41208 
4130 
4140 
4158 
4168 
4178 
4188 
4198 
4208 
4218 
4220 
4238 
4248 
4250 
42608 
4270 
4280 
4298 
4308 
4318 


08,03,8e,09,03,a9,21,a2, 
c5,8d,02,03,88,03,03,a9, 
3b,a2,c0,8d,14,03,8e,15, 
03,a2,7a,a9,c6,8e,06,03, 
8d,07,03,60,78,20,15,fd, 
4c,53,e4,ad,8d,22,38,69, 
05,d0,09,a9,00,a2,20,a0, 
08,40,56,c0,c9,01,d®,2f, 
a9,0e,a2,06,a0,08,8d,20, 
d®,8e,21,d0,80,86,02,85, 
cc,d®0,59,a0,ff,cB,bl,di, 
29,7F,20,da,c7,b®,f6,S8, 
FO,4a,69,36,05,d3,b0,24, 
85,d3,d0,40,ad,e®d,cf,f®, 
0c,ad,53,803,F0,07,a2,00, 
8e,53,03,f®,2d,35,cb,38, 
e3,03,30,28,c9,04,b0,24, 
aa,98,7d,8c,cf,c5,d3,Ff®, 
1b,48,a5,ce,a8,86,02,20, 
13,8a,a9,80,85,cf,a5,d3, 
c9,28,90,05,c06,d6,20,6c, 
e5,68,85,d3,4c,31,8a,78, 
20,73,00,a2,ff,c6,21,a2, 
20,e8,e0,11,F0,2a,b1,7a, 
dd,3Ff,bB,d®,f2,c8,b1,7a, 
dd,58,b8B,d®,ea,c8,b1,7a, 
dd,61,b8,d0,e2,20,73,00, 
20,73,20,bd,83,b8,48,bd, 
72,b8,48,e6,21,40,73,00, 
e6,01,208,79,88,58,4c,e7, 
a7,d0,03,20,34,c0,20,79, 
00,58,4c,ae,a7,d®,F7,20, 
0a,c0,4c,806,c1,d8,ef,20, 
02,c7,20,27,c07,4c,86,c1, 
d®d,e4,a9,01,8d,e6,cf,d®, 
dd,a9,00,Bd,e6,cf,f®,d6, 
dd,d4,a0,00,20,ec,c9,a2, 
09,ec,e5,cf,f®,34,86,02, | 
c6,21,b9,00,b4,85,29,c8, 
be,20,b4,c8,b9,00,b4,B4, 
93,86,14,85,15,86,01,20, 
13,36,90,2d,20,c9,a6,a6, 
09,bd,98,cf,bc,95,cf,20, 
Sa,ca,a6,02,e8,a4,93,cB, 
d®,c7,a2,02,20,aa,c7,ae, 
eS,cf,a9,00,20,83,c8,a9, | 
34,a0,b6,20,5a,ca,4c,bB, 
c7,a9,0d4,20,47,ab,a6,14, 
a5,15,20,cd,bd,20,3F,ab, 
d®d,c5,Ff,11,c09,44,d®,3®, 
20,73,00,d80,8b,20,bB,ca, 
a2,04,20,50,fF2,c6,01,20, 
fd,ba,e6,21,a2,02,20,aa, 
c7,ae,ae3,cf,ad,e4,cf,208, 
83,c8,a9,c7,a8,b6,dd,bb, 
d®,d4,c6,21,20,80,be,e6, 
01,86,2d,85,28,20,33,a5, 
20,60,86,40,806,01,28,ec, 
c9,a0,00,88,c8,c0,14,d2, 
03,4c,08,af,b1,7a,399,3e, 
03,f0,09,c9,22,d0,ed,aS, 
00,939,3e,23,98,18,65,7a, 
85,73,90,02,86,7b,20,73, 
800,f0,03,20,fd,ae,20,c5, 
ca,4B,8a,48,20,13,36,a5, 
Sf,85,57,85,690,85,58,68, 
aa,68,20,85,07,f0,45,a0, 
03,a2,ff,e8B,bd,3e,83,F®, 
1e,c8,b1,5f,fF0,31,dd,3e, 
03,f0,f0,bd,3e,03,c9,3F, 
f®d,e9,Ba,f®d,ec,84,02,18, 
e5,02,49,ff,a8,d@,da,ad, 
01,84,0f,c8,b1,5Ff,85,14, 
aa,c8,b1,5f,85,15,22,de, 
a6,20,89,c7,4c,6a,c2,20, 
70,075,00;,23,40,b8,67,65; 
58,d0,05,88,b1,5f,c5,57, 


c278 
c288 
c288 
c298 
c298 
c2a®d 
c2aB 
c2b® 
c2b8 
c2c® 
c2c8B 
c2d® 
c2d8 
c2ed 
c2eB 
c£f® 
c2fB 
c3088 
c388 
c318 
c318 
c320 
c328 
c338 
c338 
c340 
c348 
c358 
c358 
c360 
c368B 
c37®8 
c378 
c38® 
c388 
c398 
c398 
c3a®d 
c3aB 
c3b® 
c3b8 
c3c® 
c3c8 
c3d® 
c3d8 
c3e® 
c388 
c3f® 
c3f8 
c498 
c4HBB 
c41® 
c418 
c4208 
c428B 
c438 
c438 
c440 
c448B 
c4508 
c4H5B 
c468 
c46B 
c4708 
c478 
c4B® 
c488 
c43® 
c498 
cHa®d 
c4Ha8 
c4Hb® 
c4b8 
c4c® 
c4cB 
c4d® 
c4d8 
c4ed 


43208 
4338 
4340 
4359 
4368 
4378 
4380 
4392 
4400 
4418 
4420 
4430 
4440 
4458 
4468 
4478 
44BO 
4498 
4508 
4518 
4520 
4538 
4548 
4550 
4568 
4578 
4588 
4598 
4600 
4618 
4620 
4638 
4640 
4658 
4668 
4670 
4688 
4638 
4708 
4710 
4720 
4730 
4749 
4758 
4768 
4778 
47808 
4730 
4800 
4810 
4820 
48308 
4840 
4850 
4860 
4879 
4880 
4839 
4900 
4910 
4920 
4938 
4940 
4959 
4960 
49370 
49828 
4999 
5022 
5018 
5020 
5032 
5849 
5058 
5068 
5079 
59808 
5038 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


90,ad,b0,F0,990,83,4c,08, 
af,20,6b,39,20,13,a6,a5, 
60,48,25,5f,48,a6,14,a5, 
15,86,57,86,24,85,58,85, 
e5,20,fd,ae,20,6b,a9,a6, 
14,35,15,86,59,85,5a,05, 
53,£f0,d3,28,79,00,£0,03, 
e0d,fd,ae,20,c5,ca,68B,aa, 
68,c5,69,d0,02,e4,5f,98, 
5d,a8,82,b1,5Ff,85,5b,cB, 
b1,5f,85,5c,a5,15,48,a5, 
14,48,20,89,c7,84,02,F®, 
48,c8,b1,5f,aa,c8,b1,5f, 
c5,15,d8,04,e4,14,Ff0,02, 
b®,1a,20,88,c7,35,82,F®, 
04,90,0b6,b80,13,35,58,31, 
5f,88,85,57,91,5f,20,7d, 
c7,4c,d7,c2,a5,22,F0,42, 
280,9c,c7,b1,5f,c5,58,d®, 
04,e4,57,F0,02,b0,0a,a6, 
57,85,58,20,cd,bd,4c,48, 
b2,35,02,F0,25,36,5b,a5, 
5c,86,14,85,15,20,13,a6, 
68,85,14,68,85,15,a6,24, 
a5,25,86,57,85,58,28,3c, 
c7,a9,00,85,02,20,89,c7, 
d®d,8f,4c,74,a4,90,23,4c, 
0B,af,20,6b,39,36,14,a5, 
15,88,54,03,84,55,03,20, 
fd,ae,20,6b,a9,aa,d®d,e7, 
a6,14,35,15,Be,56,03,8d, 
57,03,05,14,F0,d9,8d,e2, 
cf,28,f8,c7,4c,74,a4,20, 
c5,ca,86,24,85,25,e6,14, 
d®d,02,86,15,20,13,36,a0, 
00,35,25,c5,60,d0,04,a5, 
24,c5,5f,b8,81,b1,5f,S1, 
24,35,60,c5,28,d0,2d,a6, 
Sf,e4,2d,90,07,36,24,a5, 
25,4c,d1,c1,8e6,24,d0,02, 
e6b,25,8e6,5f,d9,df,e6,62, 
d®d,db,a9,Ff,8d,si1,cf,85, 
14,85,15,20,13,36,36,2b, 
a5,2c,86,02,85,Ff,a6,5f, 
a5,60,86,2b,85,2c,4c,68, 
el,ad,e2,cf,f®,10,c9,08, 
fB,0f,20,d4,el,a6,fd,at, 
fe,a9,fb,20,d8,ff,4c,Bc, 
c4,39,13,a0,b7,20,5a,ca, 
208,12,c9,20,58,c8,20,7d, 
ca,a6,fb,a5,fc,86,26,85, 
27,20,37,c8,a2,801,a9,08, 
86,57,85,58,a2,08,20,0e, 
f2,20,0f,£F,4B,28,00,EF, 
68,a0,00,a6,fe,e4,27,d, 
06,36, fd,e4,26,£2,11,31, 
57,e6,57,d0,02,e6,58,e6, 
26,d0,d9,86,27,4c,1c,c4, 
a9,08,20,c3,ff,a9,49,a0, 
b7,280,5a,ca,20,12,c9,a9, 
0B,a3,a8,01,28,ba,ff,20, 
93,ca,a2,08,20,50,F2,a5, 
£fb,20,47,ab,a5,fc,20,47, 
ab,a2,01,a9,08,86,"4b,85, 
4c,30,00,b1,4b,a6,58,eH4, 
4c,d0,0Ff,a6,57,e4,4b,d®, 
03,20,42,36,20,5c,c9,“4c, 
b8,c7,20,d2,Ff,86,4b,d2, 
e2,86,4c,40,7b,c4,f®,ec, 
c9,24,d0,3Ff,a9,08,aa,ad, 
09,20,ba,ff,20,a8,ca,a, 
08,20,0e,F2,20,cf,fFf,20, 
cf,ff,a9,8d,29,47,ab,20, 
b3,c7,20,cf,ff,20,cf,ff, 
aa,f®,c1,20,cf,FFf,aa,20, 
cf,ff,20,cd,bd,20,3F,ab, 
e0,cf,ff,aa,f0,dc,20,47, 
ab,d®,f5,39,0f,a2,08,a8, 
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5598 
5608 
SE18 
5620 
5638 
5649 
5658 
5668 
5670 
5688 
5699 
5708 
5718 
5720 
5738 
5749 
5758 
5768 
5770 
5788 
5738 
5808 
5818 
58298 
5838 
5849 
5B58 
5B60 
5870 


20,ba,ff,20,93,ca,a9,df, 
20,c3,ff,4c,8c,c4,d®,26, 
a9,45,a2,30,d0,17,28,eb, 
b7,a5,15,f0,23,4c,4B,b2, 
e4,14,b0,Ff9,a5,14,e9,02, 
ca,ca,ca,30,f0,8d,29,be, 
Se,1d,be,4c,806,01,8d,eß, 
cf,ae,eil,cf,f®,0b,ee,el, 
cf,a6,02,a5,ff,86,2b,85, 
ec,ad,ed,cf,f®,16,20,eH4, 
c7,ae,54,03,ad,55,23,20, 
cd,bd,a6,d3,e8,88,53,03, 
a2,00,86,d3,a9,37,85,01, 
20,60,a5,86,7a,84,7b,20, 
73,00,aa,f®d,c1,a2,ff,B6, 
3a,990,03,e8,Be,ed,cf,20, 
79,85,4c,e1,a7,20,6b,a9, 
30,00,a3a,d0,08,8d,ed,cf, 
c6,01,4c,2a,b9,a6,7a,e®, 
09,90,05,c6,01,4c,94,bB, 
20,1e,c8,d0,805,c6,01,4c, 
20,b9,bd,200,02,20,13,bl, 
b8,05,20,da,c7,90,e4,39, 
00,02,e8,c8,c2,07,50,ea, 
c6,01,40,805,b9,86,01,a4, 
24,4c,a2,a4,e6,01,39,00, 
85,bc,a2,080,84,59,b9,00, 
02,c8,c9,3c,f0,04,c9,3e, 
d®,04,b9,080,02,c8,c9,27, 
d®,08,a5,bc,d®,2a,e6,bc, 
dd,e4,c9,25,d0,17,b9,00, 
02,c8,c9,30,f0,04,c9,31, 
d®,16,e8,e0,08,d8,ef,b9, 
00,02,c8,d0,32,c09,22,d0, 
0Ff,c8,b9,00,02,c8,c9,22, 
deo,56,b9,00,02,c8,d®,1fF, 
280,13,61,b9,38,c9,24,F®, 
51,20,da,c7,30,11,86,5f, 
82,02,86,60,88,c6,21,20, 
c93,bd,e6,01,b9,32,c8,c9, 
eb,f8,8F,c9,2d,f8,8b,c9, 
27,d0,04,c6,bc,f®,b8,BB, 
a6,bc,d®,1c,c4,59,d8,02, 
68,68,c6,21,60,b9,00,022, 
c8B,280,13,b1,b8,05,20,da, 
c7,98,d4,e8,e8,26,d0,ed, 
68,68,68,68,c6,21,4c,Bf, 
b3,28,b9,00,02,c8,20,da, 
c7,b8,f6,28,2d,c8,b2, fi, 
e0,02,F0,b3,20,04,F0,af, 
d®,de,84,22,180,38,c9,c1, 
b0,34,24,0F,30,30,a2,00, 
86,23,29,7F,a8,c0,0b,bB, 
06,20,3F,ab,c8,d2,Ff&6,c6, 
01,bd,61,b7,20,d2,ff,bd, 
a2,b7,20,d2,ff,bd,e3,b7, 
2e0,d2,Fff,e6,01,e6,22,89, 
20,a4,22,4c0,f3,a6,8e6,23, 
28,1e,c8,d®,f4,c8,04,d®, 
04,85,23,b®,ec,24,08F,3®, 
eB,a6,23,e8d,8d,b8,f2,48, 
20,3f,ab,68,e8,d8,f4,b1, 
d1,c9,28,d8,0a,c8,b1,di, 
c9,20,f0,08,88,a9,20,c9, 
ef,f0,07,49,80,91,d1,cB, 
d®,e5,60,89,33,30,b5,“c, 
Sa,ca,28,ad,c8,a3,2f,4c, 
47,ab,20,45,07,a6,Ffb,a5, 
fc,28,fa,c6,a6,fd,a5,fe, 
28,Ffa,c6,a5,fd,38,e5,fb, 
aa,a5,fe,e5,fc,28,ad,c®, 
a9,6d,a8,b5,4c,5a,ca,20, 
4c,c7,86,2b,a5,2c,20,fa, 
c6,36,2d,a5,28e,20,fa,c6, 
a5,2d,38,8e5,2b,aa,a5,2e, 
e5,2c,4c,1d,c7,a9,5f,a®, 
b5,40,5a,ca,a9,75,80,b5, 
4c,53,ca,86,5Ff,85,60,a0, 
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5888 
5839 
5990 
59310 
59228 
5930 
5940 
5959 
5968 
59378 
5989 
5998 
6008 
6010 
6029 
6038 
6040 
6958 
6069 
6070 
6088 
6039 
61090 
6110 
6128 
6138 
6140 
6159 
6168 
6170 
6180 
6199 
62098 
6210 
6220 
6230 
6240 
6250 
62698 
6270 
6282 
62390 
6308 
6310 
63208 
6339 
6340 
6358 
6368 
6370 
6389 
63998 
6490 
6410 
6420 
6430 
6440 

6450 

64560 

6470 

6480 

6490 

65098 
6518 
6520 
6530 
6540 
6559 
6569 
6570 
6589 
6599 
6690 
6619 
6620 
6630 
6640 


er,c8,20,c!,ff,31,50,C09, 
0d,d®,F6,c0,11,10,05,89, 
00,91,5Ff,60,a9,0c,85,d3, 
d®O,e5,98,18,65,22,85,22, 
S0,02,e6,23,60,30,00,b1, 
Sf,aa,c8,b1,5f,86,5f,85, 
60,a0,01,b1,5f,60,85,57, 
18,65,59,85,57,a5,58,65, 
5a,85,58,60,a5,57,38,e5, 
59,85,57,a5,58,e5,5a,85, 
58,60,a9,0d,20,d2,Ff,ca, 
da,F8,60,20,el,ff,d®,2b, 
a9,37,85,01,20,cc,Ff,a9, 
04,20,c3,Ff,a9,08,20,c3, 
Ff,a9,0f,20,c3,ff,20,34, 
c0,20,0a,c0,a2,Ffa,3a,4c, 
74,024,c9,30,90,05,89,3a, 
38,e9,c6,60,ad,54,23,1B, 
64,56,03,8d4,54,03,ad,S55, 
03,6d,57,03,8d4,55,03,60, 
ad,54,03,38,ed,56,03,8d, 
54,03,ad,55,03,ed,57,03, 
8d,55,03,69,c9,22,d0,08, 
a5,58,49,fFf,85,58,a9,22, 
60,b9,00,02,F0,06,c9,3b, 
£f9,02,c9,21,60,86,7a,20, 
79,00,36,73,60,c9,41,990, 
05,e93,47,38,e9,b9,60,48, 
Ba,4B,a2,0f,20,50,f2,a9, 
31,a0,b6,20,53,ca,68,20, 
d2,ff,68,20,d2,ff,4c,cc, 
£ffF,4B,a2,08,20,50,F2,68.. 
20,47 ,ab,4c,cc,ff,a9,00, 
E0,bd,Ff,a9,0Ff,a2,08,a8B, 
20,ba,ff,4c,c®,ff,e6,01, 
20,76,c8,c6,21,60,c9,03, 
d®2,02,e0,e8,b0,05,a8,20, 
01,ca,38,85,62,86,63,a2, 
90,38,208,49,bc,20,df,bd, 
a2,ff,eB,bd,00,01,d0,Fa, 
e0,03,F0,03,e0,05,f0,06, 
20,3F,ab,e8,d0,f2,a9,00, 
a0,01,4c,5a,ca,ac,e6,cf, 
fd,cH,a8,d0,0e,20,01,ca, 
“c,ca,c8,ac,86,cf,f®,c3, 
a8,fF0,07,20,de,c8,Ba,4c, 
e5,c8,8a,4c,de,c8,e6,01, 
20,ad,c8,c6,01,60,66,01, 
20,bb,c8,c6,01,60,a8,a9, 
24,20,47,ab,98,a8,29,F0, 
Ya,4a,4a,4a,20,Ff2,c8,58, 
29,0f,18,69,30,20,da,c7, 
b8,02,69,07,4c,47,ab,2®, 
e4,ff,c9,20,f0,803,4c,b3, 
c7,85,cb,c9,48,d@,Ffa,20, 
e4,ff,20,b3,c7,20,e4,Ff, 
c9,20,d0,f6,68,ad,eS,cf, 
c9,55,Ff8,1c,Bda,6d,eS,cf, 
aa,98,9d4,00,b4,80,02,b1, 
Sf,e8,9d,00,b4,c8,b1,5f, 
e8B,9d4,00,b4,ee,e5,cf,60, 
a9,37,85,01,a9,b4,a0,b6, 
20,5a,ca,4c,b8,c7,98,18, 
65,5Ff,85,73,a0,00,98,65, 
60,85,7b,60,20,58,c8,20, 
cc,ff,a2,0f,20,Bde,Ff2,20, 
cf,ff,c9,30,F0,0c,a8,20, 
cf,ff,c8,35,d0,0e,c9,3®, 
d®,0a,20,cf,ff,c9,0d,d®, 
£3,4c,cc,ff,48,a2,03,20, 
a3,c7,98,20,47,ab,68,20, 
47,ab,20,cf,ff,c9,2d,d®, 
F6,F0,b9,ad,11,02,d0,06, 
88,20,2f,f1,30,a5,a2,00, 
a0,02,20,bd,Fff,a2,08,a®, 
00,20,ba,ff,a9,00,a6,2b, 
a4,20,20,d5,ff,b0,9d,86, 
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6650 
6668 
6678 
66828 
6690 
67008 
6710 
67208 
6730 
6748 
6750 
6768 
6770 
67808 
6798 
68098 
6818 
68208 
6830 
6848 
6858 
6868 
6870 
6888 
6898 
69908 
6310 
6920 
6930 
6949 
6950 
6968 
6970 
6989 
6990 
7998 
7018 
7920 
7038 
79408 
7058 
7068 
7078 
7088 
7030 
7188 
7118 
71208 
7130 
71490 
7158 
7168 
7178 
7188 
7199 
72008 
7210 
7220 
7230 
72408 
7250 
7268 
7278 
7280 
7290 
73008 
7318 
73208 
7338 
7349 
7350 
7368 
7378 
7388 
7398 
7400 
7410 


2d,84,2e,4c,33,a5,aa,cB, 
c8,20,4e,c9,8a,a6,7a,at4, 
7b,d0,d7,a6,4b,35,4c0,c9, 
fFf,d®,04,e®d,Fff,f0,0c,c5, 
fe,d®,02,e4,fd,90,04,86, 
£fd,85,fe,60,a2,f7,a9,c9, 
Be,20,03,8d4,01,03,60,30, 
f2,4c,8b,83,a9,20,20,d2, 


- FF,a9,20,20,d2,Ff,a9,20, 


4c,d2,ff,e6,01,a9,ee,a®, 
b6,20,5a,ca,es,17,02,ae, 
17,02,39,20,20,83,c8,2®, 
f0,0c9,20.f6,09,20,£6,69, 
a9,76,a0,b5,20,5a,ca,a9, 
00,20,02,20,5a,ca,c6,01, 
a2,803,4c,aa,c7,c9,80,90, 
®c,c9,ff,d80,03,a9,58,60, 
23,7f,09,40,60,29,3F,60, 
c6,21,4c,71,bc,88,e6,01, 
28,60,c6,01,85,22,84,23, 
a0,00,b1,22,F0,06,20,d2, 
FFf,c8,d®,f6,e6,01,60,e6, 
01,20,ed,a6,68,85,560,68, 
85,5f,4c,ff,c8,a9,0F,a2, 
7b,ad,cf,20,bd,Fff,a9,08, 
aa,aB,20,ba,ff,20,cd,ff, 
4c,50,c9,20,79,00,c9,22, 
£f8,03,40,08,af,20,73,00, | 
a0,00,61,73,f0,07,c3,22, | 
£f®,803,c8,d0,F5,98,a6,7a, 
a4,7b,20,bd,Ff,4c,Bd,ca, 
89,00,20,bd,Ff,a9,04,aa, 
a0,07,4c,68,c8,f0,29,90, 
07,c9,ab,f®,03,4c,08,af, 
20,5b,a9,20,13,26,20,793, 
00,f0,0c,c9,ab,d®d,ee,2®, 
73,00,20,6b,a9,d®,e6,a5, 
14,05,15,d0,07,a2,Ff,86, 
15,ca,86,14,a5,60,a6,5fF, 
60,20,00,c0,20,4c,c07,a®, 
8c,20,d7,c6,a2,00,a9,02, 
20,53,c7,8c,11,02,98,a2, 
00,a0,02,20,bd,ff,a®,0c, 
20,d7,c6,a9,83,30,b5,20, 
Sa,ca,a2,20,c6,21,20,0c, 
bc,8d,12,02,aa,a0,00,20, 
ba,ff,a9,b2,a®,b5,20,5a, 
ca,a6b,2b,a5,2c,ac,e6,cf, 
d®,06,28,cd,bd,4c,4b,cb, 
28,bb,c8,89,15,85,d3,a2, 
1c,a9,02,20,53,c7,38,00, 
c6,01,290,74,bc,f®,ec,a5, 
58,d0,e8,a6,5b,35,5c,c9, 
08,990,e82,86,2b,85,2c,a®, 
15,20,d7,c6,a2,02,20,aa, 
c7,20,45,07,a9,ca,a®,b5, 
20,53,ca,a2,89,06,01,20, 
®c,bce,8d,e2,cf,a9,f3,ad, 
b5,20,5a,ca,a2,12,c6,01, 
280,20c,bc,8d,16,22,ae,12, 
02,f®,1c,a6,2b,a4,2c,a9, 
00,20,d5,Ff,90,0a,aa,f®, 
33,a9,03,85,d6,4c,fc,ca, 
86,2d,84,28,20,33,a5,ad, 
16,02,c9,04,d0,03,20,b8, 
ca,c6,2c,a®d,ff,a9,20,91, 
eb,e6,2c,a9,1d,a0,b6,Bc, 
13,02,20,5a,ca,a5,2c,a6, 
2b,20,85,c7,f0,35,78,ad, 
04,b1,5£f,30,55,c9,41,b®, 
03,4c,11,cd,c6,01,20,396, 
bb,f®,09,e6,01,30,02,20, 
1d,c9,d®,3a,2e6,01,ad,et, 
cf,c9,02,d8,11,ad,e3,cf, 
c9,80,d®,80a,a9,a1,a0,b6, 
280,5a,ca,4c,b8,c7,ee,e3, 
cf,d®,03,ee,e4,cf,a®,2®, 


b1,78,09,80,91,26,c8,bl, 8178 data 57,48,a9,01,85,bb,20,50, 51 


cc3®0 7430 data 7a,10,F9,a0,06,35,4b,91, de ce88 58188 data ca,d®,09,84,ff,a0,01,20, c® 
cc38 7449 data 26,c8,85,4c,91,26,a4,02, c4 ceS® 8130 data 1d,c9,a4,ff,a5,58,F0,09, 2d 
ccH® 7450 data b1,5f,aa,c8,b1,5f,e®d,b8, ad ceS8 82008 data B4,ff,a®,04,20,1d,c9,a4, 49 
ccHB 7468 data b9,23,4c,cd,cc,e®d,bd,f®d, e5 cea®d 8210 data ff,a5,57,36,bb,c9,b9,f®, c6 
cc580 74708 data 65,b0,03,4c,f5,cc,ed,bf, b6 ceaßB 8220 data 23,a5,5c0,F0,0b,84,ff,a®d, di 
cc58 7488 data F®,28,90,63,85,26,85,24, ce ceb® 82308 data 00,20,1d,c9,a4,ff,a6,bb, c5 
cc6dB 7490 data a5,27,85,25,20,50,ca,d®, a7 ceb8B 8248 data a5,5b,9d,1b,02,68,c5,bb, 6f 
cc6B 7508 data 88,20,01,20,1d,c9,4c,11, da cec® 8258 data f0,05,e6,bb,48,d0,bf,85, c7 
cec7® 7510 data cd,a5,58,F0,05,a0,04,20, db cec8B 8260 data P2,4c,2a,ce,a5,5b,9d,1b, d£ 
cc7B 75208 data 1d,c9,a0,06,35,5b,91,24, a5 ced® 8270 data 02,35,5c,e8,86,bb,d®,e2, 8b 
cc8B® 7530 data a5,5c,c8,91,24,4c,11,cd, 9c cedßB B280 data e®,bd,b9,23,c8,c8,a2,00, “4a 
cc88 75408 data 20,50,ca,f®,26,a5,58,d0d, b4 cee® 8298 data b1,5f,c9,22,f0,e3,48,a5, a8 


cc980 7550 data 22,20,d3,c9,35,5c,a6,5b, a® ceeB 8300 data 57,c9,bb,b8,08,68,39d,1c, bb 
cc98 7568 data 86,4b,85,4c,a4,fc,d®,04, e8 cef® 83108 data 92,e8,c8,d0,eb,d®,07,68, cd 
cca® 75708 data a4,fb,f90,08,c5,fc,d8,02, 27 cef8 83208 data 208,3d,ca,4c,ee,ce,68,20, c9 
cca8 7580 data e4,fb,b0,04,86,fb,85,fc, a9 cf0® 8330 data 3d,ca,09,80,d0,e8,d0,29, 8c 
ccb® 7590 data 4c,11,cd,4c,ff,cc,8e,14, 68B cf0B 8340 data 85,bb,84,93,a9,00,85,02, e7 
cech8 7600 data 02,20,c6,09,4c,dd,cb,20, E93 cf1® 8358 data c6,01,20,04,be,a9,0d,20, e2 
ecc® 7618 data d3,c9,ad,14,02,F0,52,20, e7 cf18 8360 data 47,ab,20,cc,ff,ad,e2,cf, 55 
ecc8 7620 data 96,09,40,19,cd,c9,07,b8, 68 cf20 8370 data c9,08,d0,03,20,c3,Ff,a5, 44 
cecd® 7639 data 00,c9,03,b9,04,a9,01,d®, 25 cf28 8388 data bb,a4,93,20,c6,c9,4c,2c, a7 
ccd8 7649 data 1c,a9,02,d0,17,c09,89,b0, 4 cf30 B39® data cd,e®,be,F0,18,20,50,ca, 39 
cce® 756508 data 11,20,88,30,Ff4,e®,b6,b0, 44 cf38 8400 data a6,5b,86,4b,a5,50,85,4c, 07 
cceB 7668 data 09,20,50,ca,f®,04,a4,5c, a3 cf4dß B41® data ac,e2,cf,c®,08,d0,03,20, £5 
ccf® 7670 data F0,e7,29,03,18,65,4b,85, 28 cf48 8420 data 37,08,40,5f,cd,a9,80,85, fc 
ccf8 7680 data 4b,90,16,e6,40,d®,12,a8, db cf50 8430 data 02,c6,01,20,04,be,a2,03, 03 
cd?® 76308 data 02,b1,5Ff,aa,c8,b1,5Ff,20, 5d cf58 B440® data 20,aa,c7,20,02,07,a2,02, £9 
cd®B 7708 data 83,c8,39,d1,30,b6,4c,18, b2 cf60 B45® data 29,a3,c7,a9,00,ae,e5,cf, Ed 
cd1® 7718 data cc,290,7d,c7,Ff0,a9,4c,e7, ®e cf6B 8460 data 290,83,c8,a9,34,a0,b6,20, e6 
cd18 7720 data cb,a9,28,a0,b6,20,5a,ca, do cf7®d 84708 data Sa,ca,20,fc,c9,20,fc,c9, 90 
cd20 7738 data aS,00,84,13,02,85,4b,85, 66 cf78 8488 data 40,b9,c1,58,52,31,20,41, Fc 
cd28 7740 data 4c,28,ec,c9,ad,e2,cf,c9, 208 cfB0 B4SO data 53,53,46,49,4c ,45,2c,4c, e4 
cd30 7750 data 08,d0,1b,20,7d,ca,20,5e, aS cf88 8508 data 2c,01,0d4,00,18,01,08,0c, “4b 
cd38 7768 data c8,a9,ff,aa,20,37,c8,a9, 7b cf930 8518 data 3c,51,68,79,90,b6,b6,b6, b4 
cd4® 77708 data FF,20,51,c8,20,50,c39,a6, 4f cf98 8520 data b6,b6,f0,d0,b0,30,30,10, 60 
ced48 77808 data 4b,a5,4c,20,37,c8,aS,2c, bb cfa® 8530 data 50,70,a1,c1,21,01,61,41, 00 
cdS® 77390 data a6,2b,20,85,c7,a0,04,b1, S® cfa8 8540 data e1,81,e8,c8,aa,aß,Ba,38, 73 
cdS58 7800 data 5f,30,190,c9,41,b9,07,a9, 66 cfb® 8550 data Sa,ba,ca,88,690,40,ea,00, 2b 
cd690 7810 data 00,85,02,4c,55,ce,c8B,bi1, d® cfb8 8569 data 48,68,08,28,38,78,F8,18, 60 
cd68 7820 data 5f,10,Fb,85,57,c8,c9,88, 34 cfc® 8570 data 58,d8,b8,a0,a2,62,22,02, £3 
cd70 7830 data b9,47,20,50,ca,d®,07,a0, Sa cfc8 8588 data 42,e2,c2,80,82,c0,e0,20, 24 
cd78 7840 data 01,20,1d,c9,d0,25,38,a5, 73 cfd® 8590 data 14,40,08,00,08,00,10,14, ei 
cd8® 7858 data 5b,e5,4b,85,fFf,a5,5c,e5, ®e cfd8 8608 data 14,04,18,00,1c,8c,00,2c, ®c 
cd88 7869 data 4c,b9,0d,c9,ff,d®,23,85, Be cfed B610 data 00,00,00,00,00,00,00,00, ®® 


cdS2 78708 data fFF,38,e9,02,30,03,10,1a, c9 
cdS8 7889 data d®,18,a5,fFf,e9,82,30,12, 62 


cda® 78398 data 8d,1d,02,29,02,85,02,a6. a3 50000 For a-46336 to 53216 step H283 
cdaß 7908 data 57,bd,la,cf,‚8d,1c,02,4c, Od u a b=-® to 7: 
cdb® 7918 data 2a,ce,a®,03,20,1d,c9,d®, f5 
cdb8 7928 data ea,c9,b8,30,03,4c,71.ce, a3 50018 s-s+h+l-c:c=s>255:5-255-5 50934 
cdc® 7938 data b1,5f,c9,03,b0,0a,a2,01, 5d - 255:poke atb,h+l:next 
cdc8 7948 data 86,02,c9,02,d0,d9,F0,44, ec Babe Fan era ie ih Ve 
cdd® 7958 data 48,20,50,ca,d®,09,a0,01, 13 ee ea DER 633 
cdd8 7960 data 29,1d,c9,84,50,d0,09,a5, 39 BR Bench 0 
cde® 797® data 58,f0,05,a0,04,20,1d,c9, 07 60030 = er Bee he ag N 
cde8 79808 data 68,aa,e0,07,b8,0b,a4,5c, 83 ee ı . 
cdf® 73998 data f®,1e,a0,00,20,1d,c9,d®, 6c : a 
cdf8 8000 data 17,20,09,F0,0F,e5,50,d®, 48 g0040 ee een i®8 2716 
ce®® 8010 data 06,a5,57,c9,b6,30,09,18, @7 Kassa Toner Cr SR Arne ‚95 als 
ced8B 8020 data 8a,69,04,aa,a0,03,d0,02, e6 or So Yen 
ce1l® 8030 data a0,02,84,02,a4,57,b9,1a, ®a Base ir Sr car Fe BR 
cel8B 8048 data cf,18,7d,di1,cf,8d,1c,02, bf 60078 1=1-7:if 1>9 then return 1334 
ce2®0 B052 data a5,5b,8d,1d,02,a5,5c,8d, e6 50080 FS=-"Crvs] ingabefehler”:1= 2460 
ce28B 8060 data 1e,02,ad,e2,cf,f®,26,86, 2 gi eingabefehler”: 
ce30 8070 data 22,F0,22,20,00,c9,08,F0, e : > 3 
ce38 8080 data @b,b9,1c,02,91,4b,c8,ce, b® Fe en a SR 
ce4® 8090 data d®,Ff7,F0,11,c4,02,F0,0d, Sb ars SEN 
ce48 8100 data b9,1c,02,84,Ff,20,51,c8, 82 

| ceS® 8112 data a4,ff,c8,d®d,ef,c6,01,20, a8 saven des programms nach starten 

| ceS8 8120 data 04,be,20,7d,c7,d0,03,4c, 39 des loaders mit 

| ce5® 8130 data 56,cf,a5,02,18,65,4b,85, a3 
ce6B 8142 data 4b,90,02,e6,4c,78,40,55, a4 poke 43, ®:poke “44,181 
ce7® 8150 data cd,c9,c0,30,03,4c,5F,cd, 7d poke 45,231:poke 46,207 


ce78 8168 data aa,b1,5f,85,02,e®,ba,bd, save "name”,B 


| 
| Mit XR1 werden 1,5 KB Code pro Sekunde assembliert. B- 
| 
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nr Spiele Listing | 


Kartenzocker 


System: 16/116/Plus 4 
Typ: Spiel 


Einsatz gemacht, legt er 3 Karten, 


lee IE SEHE ine verdeckte für sich und zwei 


Sprache:Basic NZIRAREHFAN Zell Offene für den Spieler, auf den 


Black Jack ist in Las Vegas ein be- 


liebtes Kartenspiel. Das Pr- WON JTIRFETHLE EIS 
tengeber und Gegen- 
spieler ist der C16. aus, wie der Spieler weniger als 


gramm „l7+4" ersetzt Kartenge- 
ber und Gegenspieler und er- 
spart damit so manche Mark... 

Zu Beginn des Spieles gibt man 
seinen Namen an. Danach mischt 


der Computer die Karten. Kurze Einsatzes, mindestens 2 Dollar, der Spieler an. Ab und zu mischt 


ohne ihn zu überschrei- 
BEATRICE 2 mimmt. Gibt man „N“ für Nein ein, 


Tisch. Als Geber möchte er nun 
wissen, ob man weitere Karten 


gibt er sich Karten. Will man wei- 
tere Karten, drückt man „J" für Ja. 


Der Computer gibt solange Karten 


21 Punkte hat. Nach jedem Spiel 
zeigt „lI7+4“ den Kontostand bei- 


Zeit später will er die Höhe des maximal 50000, wissen. Ist der er die Karten erneut. 


rem black jack auf dem i6’er 

print chr$ (14):rem weiss 

vol B:s9$="A2SX":rem die vier verschie 
denen kartenzeichen 
mw=15:tt=1:c8$5="23456789tbdka"”:rem all 
e kartenwerte sind hier gespeichert 
kl=-2:print :print :c95=-" 23455678 
91010101211”:rem ausgabewerte 

print chr$ (147); :gosub 2938:rem emfpa 
ngsbild von blackjack 

print "Cclr)”;: 

input "spielregeln (j/n) ";a$ 

if a$=-")” or a5="J” then goto 78 

goto BO 

gosub 3818:rem spielregeln erklaeren 
rem 

print chr$ (147”):rem clr/home 

print chr$ (14+128) 

dim c(52),p(18),d(1®) 

dim s$(52),c$(52) 

gosub 1368 

t=-d 

38-J 

if a%4 then 188 

gosub 136®:rem per zufallszahlen die k 
arten mischen 

if j<42 then 200 


rem wenn alle karten aufgebraucht (5j>4 
1) dann neu mischen 

gosub 1368 

print "Chome, 13downJlihren einsatz in 


if b1-® then 1250 
if b1>8 then 278 
gosub 1368 
2 bi--bi 
if b1>=1 then 300 
print "mindesteinsatz ist 1 dm” 
goto 158 
if b1<=-25008 then 350 
if mi=1 then 2090 
print ”Chome,12down,rvsJunser limit 
ist 25,000 dm !L[off,11spaces)” 
print "[48spaces, down)” 
goto 208 
p"2:d=2: p9=9:d9-® 
v-d 
h=8 
print "C[clr]"”; 
mi-1 
gosub 1638 
gosub 1758 
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gosub 2840 

J1=J 

mi=-2 

gosub 1630 

gosub 1758 

gosub 2098 

if p=21 then 550 

if d<21 then 658 

mi=-1 

gosub 2908 
k$=-"C2up,rvslichl[loff] habe black Jack” 
gosub 139698 

goto 1138 

mi-1 

gosub 2008 

if d<21 then 618 

k$=-"[C2uplwir haben black jack” 
gosub 1968 

goto 1058 

k$-"[Zuplsie haben black jack” 
gosub 19568 

b1-1.5*b1 

goto 1888 

if p<22 then 720 

k$=-"[C2up]lzu viele punkte erreicht” 
gosub 1368 

mi-1 

gosub 20008 

ml=-2 

goto 1138 

if v-8 then 748 

goto 908 

k$=-"Cupleine weitere karte nehmen ” 
gosub 1968 

print "[rvsI?L[left,off)";:for i=-1 to 
158:next 

print ” [Cleft]";:for i=1 to 158:next 
get a$:if a$=-""” then 7608 

if a$=-"j” then 869 

if a$=-"d” then B42 
k$=-"Cup,21spaces]” 

gosub 1968 

goto 3988 

b1=-2*b1 

v1 

kS-b$ 

mi=-m1+1 

gosub 1638 

goto 659 

mi-1 

gosub 2008 

mi-2 

if d>16 then 980 

mi-mi+1 


2580 


Spiele Listing zen 


gosub 1758 631 1738 print "Chome,13down]” 1232 
969 gosub 29908 565 1748 goto 2038 585 
978 goto 938 584 1758 3-3+1 329 
988 if d<=21 then 1030 1430 1768 d(m1)=-j 716 
998 k$="[2uplich habe zuviele punkte !!! - 56624 1778 if c(j)<11 then 1808 1628 
—minin C2spaces]sie haben daher 1788 d9-dS+1 726 
Ervs)gewonnenloff]"” 1798 a9-aS+1 633 
1988 print "Chome, 11down]”;k$; "[down)” 1772 1888 d=-d+c(j) s22 
1010 rem **gosub348008 1818 if d<22 then 1850 1158 
1020 goto 1100 563 1828 if d9-® then 1850 1152 
10380 if d<p then 1088 859 1830 d=d-18 304 
1048 if d>p then 1139 1949 1840 d9=d9-1 758 
1058 k$="wir haben gleiche punktzahl !” 2676 1858 return 142 
1060 gosub 1960 647 1868 For i-i1 to 52 994 
1078 goto 11690 611 1878 pli)-® 313 
1080 k$="sie haben gewonnen[1®spaces]!” 2434 1888 d(i)-® 307 
1898 gosub 1969 647 1898 next i 276 
1108 t=t+bi 425 1908 return 142 
111® goto 1168 611 1918 for i=1 to 52 994 
1120 gosub 1960 647 19208 print c$(i)+s$(i); 1425 
1130 k$=-"sie haben verloren[9spaces)!” 2528 1938 next i 276 
1149 gosub 1968 647 1948 print 153 
1158 t=-t-bil 433 1958 return 142 
1168 print 153 1968 print "Chome,11down]”; 1287 
1178 if t>8 then 1218 1134 1978 print "[37spaces)” 14901 
1188 if t<® then 1230 1143 1988 print kS$; 664 
1198 print ”[2uplsie haben zur zeit kein 3276 1998 return ı42 
geld[ 18spaces)]” 2000 p5=® 517 
1208 goto 158 576 2018 print "Chome)”; 493 
1218 print "[2uplsie besitzen dm[3spaces)”; 18465 2020 goto 2040 s33 
t 2030 p5-1 525 
1228 goto 158 576 2040 For l=1 to B 01 
1238 print "[2uplsie schulden mir dm”, -t 2313 2058 if mi=-1 then 2038 1218 
1240 goto 150 576 2068 For iS-1 to mi-1 1307 
1258 print "Cclr) 239 2078 print "[Bright)”; 1594 
1269 if t-2 then 1318 1202 2080 next i5 488 
1270 if t<® then 1340 1088 2898 if p5-1 then 2120 1361 
1288 print "gratulation ! sie tragen jetzt 3425 2108 i=d(ml) 580 
ganeze” 211® goto 2138 583 
1298 print t” dm nach hause!” 1672 2128 i=p(ml) 628 
1388 goto 1358 611 2138 print ”[rvs)”; 489 
1310 print "sie gehen ohne gewinn und ohne 4982 2140 r=c(i) 446 
verlust ”:print 2158 if 1>1 then 2178 1097 
1328 print "nach hause.” 1941 2169 goto 2730 613 
1330 goto 1350 611 2178 if 1>2 then 2248 1040 
1340 print "aetsch ! bei uns bleiben ganze 3717 2180 rem 
Cdown]Jdm” ;-t”"Cdown] 2190 if c$(i)=-"t” then 2220 1428 
1358 print ”Cdownlhaengen, bis zum 3723 2208 print right$ (c$(i),1);s$(i);” 2147 
naechsten mall”:end [5spaces)”; 
1360 rem hier wird gemischt 2210 goto 2898 533 
1378 print "Chome, 13down)lbitte kurz warten 3283 2220 print ”10”;s$(i);”[4spaces)”; 1878 
[C4spaces]! 2230 goto 2808 593 
1388 for i=1 to 4 822 2240 if.1>3 then 2310 1238 
1398 For j-1 to 13 932 2258 if cCi)<11 then 2279 1654 
1400 wi=13*Ci-1)+jJ 1588 2260 goto 2730 613 
1410 s$Cwi)-mid$ (s9$,i,1) 1736 2270 if c(i)>2 then 2290 1565 
1420 c$(wi)-mid$ (c8$,J,1) 1716 2288 goto 2738 613 
1430 cCwi)-val (C mid$ (c9$,2*3-1,2)) 2263 2298 if c(i)>3 then 2770 1631 
1440 next j 278 2308 goto 2750 6293 
1458 next i 276 2318 if 1>4 then 2469 930 
1460 For i=1 to 52 994 2328 if c(i)<11 then 2340 1634 
1478 4-S2*rnd (1)*+1 1337 2330 goto 2758 623 
1488 tt$=s$(i) 945 2340 if c(i)<9 then 2360 1557 
1490 s$Ci)-s$(j) 1203 2350 goto 2798 661 
1508 s$(j)-ttS$ 728 2368 if c(i)>3 then 23808 1627 
1518 tt$=c$(i) 344 2370 goto 2758 629 
1528 c$Ci)-c$(j) 1183 2388 if c(i)>4 then 2490 1406 
1530 c$( j)-tt$ zı2 2390 goto 2738 613 
1548 tt=cli) 725 2408 if c(i)>5 then 2428 1478 
1559 cli)=c(J) 492 2410 goto 2758 623 
1568 c(j)-tt 463 2428 if c(i)>6 then 2440 1558 
1570 next i 276 2430 goto 2778 645 
1580 a9-0 518 2440 if c(i)>7 then 2778 1632 
1598 3-8 367 2450 goto 2750 623 
1600 ji-2 519 2460 if 1>5 then 2568 1002 
1618 18-0 517 2470 if c(i)<11 then 2498 1678 
1628 return 142 24808 goto 27308 613 
1630 J-j+1 320 2490 if c(i)<1® then 2510 1490 
1640 plmi)=j 728 2500 goto 2738 661 
1658 if c(yJ)<11 then 1688 1684 2518 if c(i)<6 then 2530 1612 
1669 p9-p9+1 834 2520 goto 2778 645 
1678 aS-aS+1 693 2530 if c(i)<4 then 2550 14392 
1688 p-p+c(j) 682 2549 goto 27308 613 
1698 if p<22 then 1738 1307 2550 goto 2750 629 
1708 if p9=® then 1738 1301 2560 if 1>6 then 2659 1201 
1718 p=p-10 364 2578 if c(i)<11 then 2598 1682 
p9-p3-1 goto 2738 613 
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if c(i)<7 then 2619 

goto 2778 

if c(i)=4 then 2640 

if c(i)=5 then 2648 

goto 2730 

goto 2779 

if 1>7 then 2720 

print "[4spaces)”; 

if c$(i)="t” then 2700 

pfint ” ”";s$Ci);right$ (c$(i),1); 

goto 2800 

print s$(i);”19”; 

goto 2800 

goto 2738 

print ”"[7spaces)”; 

goto 2808 

print "[3spaces)";s$(i); "[3spaces]”; 

goto 2800 

print "[2spaces]”;s$(i);"” ";s$li);” 

[2spacss)”; 

goto 28008 

print "[2spaces)”;s$(i);s$(i);s$(i1);” 

[2spaces)”; 

print 

next 1 

print 

return 

print ”"Chome,rvs,7spaces,off,cbm gJ"” 
d print "[rvs, 7spaces,off,cbm g]” 

print "C[rvs] [Loff,shift £,2spaces,rvs, 

3spaces,off,cbm g]” 

print "[rvs] Coff] [rvs,2spaces,off) 

[rvs,shift £] [Coff,cbm g]"” 

print "[rvs) [off] [rvs,2spaces,off, 

cbm t,cbm *,rvs]) [Loff,cbm g]” 

print "[rvs) [chbm *,off ‚2spaces,rvs, 

3spaces,off,cbm g]J” 

print "[rvs,7spaces,off,cbm g]” 

print "[rvs,7spaces,off,chm g)” 

return 

print "[clr)” 

for i=1 to 199 

print "Chome,, 12down]”;tab(15) 

print "bLrvsJ1lofflalrvsIcloffIklrvs]j 

Cofflalrvslcloff)jk” 

print ”Chome, 12down]”;tab(15) 

print "CrvsIbloffJllrvslalofflelrvsik 

LCoff]jCrvslalofflclrvsik” 

next 

return 

print "[clr,Bright,rvs]spielregel von 

black Jack” 


Hier helfen keine Tricks: Der C16 hält die Karten. 


rem 
print :print 

print "unser kartenspiel enthaelt 
Folgende ” 

print "folgende karten:[down] ” 

print v2 3456578393 b dk aldown) 
print ”dabei zaehlen die bilder (b,d, 
k) Jeweils 

print "zehn punkte, as 11 punkte, aber 
wenn 2Zildown] 

print "ueberschritten werden, nur 1 
punkt ‚Cdown) 

print "dis zahlen zashlen ihren 
eigenwert. werldown] 

print "die hoschste punktezahl 
(max.21!) er-[Ldown] 

print "reicht (c16 oder sie), gewinnt. 
print "[Cdown, Bspaces)verstanden (j/n)” 

get a$:if a$="”"” then 3140 

if a$=-"j" then 3178 

goto 3019 

print "[clr]sie erhalten zwei karten 
und koennen so- 

print "viele nachziehen[l2spacesJwie 
sie wollen, aber[ldown] 

print "sie duerfen[rvs,shift-space]21 
punkte nicht uveberschrei 

print "[rvs]ten,[Coff] sonst verlieren 
sie, gleiches gilt[ldown] 

print "fuer den c16. um das spiel zu 
beenden, [down] 

print ”"musssen sie eine null bei dm 
setzen[ldown]” 

print "wenn sie die Frage, ob sie noch 
eine[ldown]” 

print "karte wollen, statt 
Cshift-spacelmit ’5’ wie ja mit[down] 
print ”’d’ wie doppelt bsantworten, so 
erhal-” 

print "ten[shift-spacelsie 

[shift-spaceleinelshift-spacelweitere 

[shift-spacelkarte, und ihr[down]J” 

d print "einsatz wird noch verdoppelt. 

print "[2down, 1dspacesJalles klar ? 
(j/n)” 

get a$:if a$=-"" then 3290 

if a$=-"j"” or a$="J" then return 

if a$=-"n" or a$="N” then 3010 

goto 32998 
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Landolt Computer 


Maria-Eich-Str. 1, 8 München 60, Telefon 089/83 70 21 


Spiele Listing 


Je Punkiter desto Sieg 


System: C64 
Typ: Spiel 
Sprache: Basic 


Nach Start mit RUN baut der Com- 


puter das Spielfeld auf. Zahlen 


und Kleeblätter stehen auf den 
einzelnen Feldern. Hinter dem 
Kleeblatt verbirgt sich eine Zahl 
zwischen -25 und +25. Je nach 
Eingabe spielt man gegen den 
Computer oder gegen einen wei- 
teren Spieler. Über Joystick steu- 
ert man den Eingabecursor auf 
das gewünschte Feld. Da der 
Spieler mit den meisten Punkten 


Im Kampf gegen einen Ü 
weiteren Spieler oder 
den C'64 versucht man, 
seine Spielfeldmatrix 
mit Punkten von —-25 
bis +25 abzuräumen. 


gewinnt, versucht man „punkte- 
haltige“ Felder zu besetzen. Damit 
das Ganze nicht zu einfach ist, darf 
Spieler l nur waagrecht und Spie- 
ler 2 nur senkrecht sammeln. Ist 
das Spielfeld zum Großteil bereits 


abgeräumt, ist es oftmals sinnvoll, 
ein Feld mit niedriger Punktzahl 
zu besetzen, wenn der Gegen- 
spieler dadurch ein Feld mit nega- 
tivrem Wert nehmen muß. Doch 
aufgepaßt: Allzu schnell treffen 
derartige Aktionen im Boome- 
rang-Effekt die eigene Person. 
Versucht man an einem bereits 
abgegrasten Platz zu sammeln, 
gibt's Strafpunkte. Das Spiel ist zu 
Ende, wenn 

1.) ein Spieler mehr als 230 Punkte 
erreicht; 

2.) ein Spieler in einer total abge- 
räumten Reihe steht; 

3.) Alle Felder leer sind. 

Lutz Ankerr Ui 


rem pick 'em up (c)19B6 by lutz arnkean 

rem 

print "Cclr]”:dim u(7,8):dim z(7,8): 

dim p(255):h1-08: h2-90:h3-08:h4-00 

h15="[9spaces)”:h2$=-"[9spaces]”:h3$=-" 

C[9spaces)]”:h4$="[9spaces]” 

rem pick 'em up (c)1986 by lutz arnken 

For o-® to E2:read r:poke 8S6+0o,r:next 

data 1,198,0,3,255,9,3,255,128,3,255, 

28,493,255, 106, 129.293,291. 691, 299,254 

data BS5,E55,e52,127,655,258, 187,855, 

252,107, 698, 292 ,Eus7E39,2941,099, 693, 
254 

data 127,255, 124,61,255,184,1,255,192, 
3,255, 169,3, 255,144,1,255512,0,195,3 
data 0,0,8 

For n=® to G2:read gq:poke B32+n,g:next 
data 255,255,255,128,0,1,128,0,1,128, 
0,1,0,0,0,0,2,0,0,0,0,0,0,8 

data 0,0,0,0,90,0,0,0,0,0,0,0,0,0,0,0, 
0,0,128,0,1,128,0,1 

data 128,0,1,255,255,255,0,0,0,0,0,0, 
0,0,0 

if g"® then 2349 

print "Cclr)":poke 646,1:hs=-hs+hs 
print "[2down, SspacesJwollen sie nun 
die 

print "Cdown, Bspaces]hoechstergebnisse 

print ”"[Cdown, 8spaces,rvs] 1 [off] aden 
oder [rvs] s [Coff] peichern ?"” 

print "C3down, 8Bspaces,yel,rvs] w [Loff, 

wht) eiter zum spiel 

print "C2down, Bspaces,rvs] b [off] 
eenden des spiels, 

get wS:if w$="" then 935 

if w$="w” then 999 

if w$=-"b” then sys 64738 

if w$="1" then 950 

‚if w$="s” then 978 

goto 935 

print "[clr,2downlbitte den Filenamen 
eingeben: ":print 

if hs>2 then print "Cclr, 2down,rvs] 
high score ist im speicher.,..”:goto 
968 

input "Filenamen: ”;v$ 

open 1,8,20,v$5 

input#1,z 

input#1,h1$ 

input#1,hl 

input#1,h2$ 

input#1,h2 
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input#1,h3$ 

input#1,h3 

input#1,h4$ 

input#1,h4 

close l1:g=2:hs=2:goto 6508 
for t=-1 to 1508:next :goto 3908 

print "[clr,2downlbitte den Filenamen 
eingeben: ": print 

input "filenamen”;v$ 

if g-d then 908 

open 1,8,1,"@:”+v$ 

print#ti1,z 

print#1,h1$ 

print#1,hl 

print#1l,h2$ 

print#1,h2 

print#1l,h3$ 

print#1,h3 

print#1,h4$ 

print#1,h4 

close l:goto 998 


goto 2410 

for t=1 to 1008:next :return 

print ”Cclr)”:s1-20:s2-90 

a=l 

For b*1 to 7:z(b,a)"1:next 

a=a+l 

if a>8 then 1080 

goto 1940 

goto 1320 

v-53248: sz=-2041: sf=-40 

poke v+21,254:poke sz,14:poke v+sf,5 
sz=sz+tl:sf-sf+l 

if sz>2047 then 1199 

goto 1108 

poke v+2,32:poke v+3,196:poke v+4,72: 
poke v+5,76:poke v+6,112:poke v+7,148 
poke v+B,152:poke v+9,220:poke v+1®, 
192:poke v+11,108:poke v+16,192:poke v 
+12,16 

poke v+13,124:poke v+14,56:poke v+15, 
172 

print "Chome, 3down, wht]” 

b*1 

va=-ti 

va=rnd (-va) 

For a=1 to B:uCb,a)*-int (C rnd (va)®*c26 
=(=253376-25)) 

if uCcb,a)=>1® or uCcb,a)<--10 then 
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print ” ”"uCb,a); 

if uCch,a)=->-9 and uClb,a)<-9 then print 
"C2spaces)"u(b,a); 

next 

b=b+1 

if b>7 then 1340 

print :print 

goto 1242 

print ”"Chome,down,cbm 3,right]”sa$;”:” 
; "Cuht ,2rightJ”s1; ”"CBright ,‚yel]”sb$;”: 
";"Cwht,3right]”s2 

print "Chome,down]":for m=1 to 40: 
print "Cblk]JC”; :next :goto 1098 

poke 20840,13:poke v+39,7 

poka v+21,255 

x=32:y*76 

sp-i 

poke v,x:poke v+l,y 

if p(g)=-1 and sp=2 then 29998 

if p(lg)-=2 and sp=i1 then 3910 

if sp=-1 and p(g)-® then jv-psek 
(56320) 

if sp=1 and p(g)=1 then jv-peek 
(563202) 

if sp=2 and p(g)-® then jv-peek 
(56321) 

if sp=2 and p(g)-2 then jJv=pesk 
(56321) 

Jv=15-(jv and 15) 

if jv and 8 then x=x:y=y 

if jv and 1 then 1568 

if jv and 2 then 1590 

if /v and 4 then 1620 

if jv and 8 then 1690 

if sp=1 and p(g)-® and peek (56329) 
111 then 1740 

if sp=1 and p(g)"=1 and peek (56329)- 
111 then 17408 

if sp=2 and p(g)-® and peek (556321) 
239 then 1748 

if sp=2 and p(g)-2 and peek (56321)- 
239 then 1748 

goto 1430 

if sp=-1 then x=x:y=y:goto 14398 

if y=76 then y=y:goto 1430 

if sp=-2 then poke v,x:for d=-y to y-24 
step -1:poke v+tl,d:next :x=x:y=y-24: 
goto 1438 

if sp=-1 then x"=x:y=y:goto 1438 

if y=-228 then y=y:goto 1439 

if sp=2 then poke v,x:for d=-y to y+24: 
poke v+l,d:next :x=x:y=y+24:goto 14398 
if sp=-2 then x=x:y=y:goto 14308 

if x=-32 then x=x:goto 1430 

if peek (v+16)-192 then goto 1680 

if peek (v+16)-193 and x=S6 then goto 
16808 

if sp=-1 and peek (v+16)-193 and x-16 
then poke v+1,y:Ffor d=16 to ® step -1: 
poke v,d:next 

poke v+16,192:x=255:poke v,x:for d- 
855 to 232 step -1:poke v,d:next :x= 
232:goto 1428 

if sp=1 then poke v+1,y:For d=x to x- 
48 step -1:poke v,d:next :x=x-4Q:y=y: 
goto 1438 ; 

if sp=2 then x"x:y-y:goto 1438 

if sp=-1 and peek (v+16)-193 and x-56 
then x"=x:goto 1430 

if sp=-1 and x<=192 then poke v+l,4:Ffor 
d=x to x+40:poke v,d:next :x="x+4Q:y=y: 
gato 11430 

if sp=-1 and x=232 then poke v+1,y4:for 
d-232 to 255:poke v,d:next :x=255:y=y 
poke v+16,193:x=®:poke v+l1,y:for d=® 
to 16:poke v,d:next :x=16:y=y:goto 
1420 

gosub 2320 

if peek (v+16)-192 and x=32 then a=1: 
gosub 2640 

if peek (v+16)-192 and x=72 then a=2: 
gosub 2668 

if peek (v+16)-192 and x=112 then a=3: 
gosub 2680 

if peek (v+16)-132 and x=152 then a4: 
gosub 270208 

if peek (v+16)-192 and x=192 then a=5: 
gosub 2720 
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if peek (v+16)-192 and x=232 then a=6 
if peek (v+16)-193 and x=16 then a»7: 
gosub 2740 

if peek (v+16)-193 and x=S6 then aß: 
gosub 2768 

if y=76 then b=1 

if y=188 then b=2 

if y=-124 then b=3 

if y=148 then b=4 

if y=172 then b=S 

if y"196 then b=6 

if y-2208 then b=7 

if sp=-1 and z(b,a)-1 then si-si+uCb,a) 
if sp-1 and z(b,a)-® then si-s1-75 

if si<-9 then print ”"Chome, down, wht]” 
spc(12)s1 

if si>=--9 and si<-9 then print "Chome, 
down,uht]” spc(12);” ”;si 

if si?>=18 and s1<108 then print " 
Chome, down,wht]” spc(12)s1 

if s1>-108 then print ”"[Chome, down, wht) 
” spc(11l)si1 

if sp=2 and z(b,a)=1 then s2=s2+uCb,a) 
if sp=2 and z(b,a)=-® then s2=-s2-75 

if s2<-9 then print ”"[home, down, wht]” 
spc(36)s2 

if s2>=-9 and s2<-9 then print "[home, 
down,wht]” spc(36);” ”;s2 

if s2>=18 and s2<108 then print ” 
Chome, down, wht]” spc(36)s2 

if s2>=108 then print "Chome, down, wht] 
” spc(35)s2 

print "Chome]”:for d-® to Cb)-1:print 
chr$ (17):next 

if b=1 then print spc((a*5)-4)"Cchbm 4, 
rvs,3spaces,off]” 

if b=2 then print spc((a*5)+36)"” 

[cbm 4,rvs,3spaces, off]"” 

if b=-3 then print spc((a*5)+76)” 

[cbm 4,rvs,3spaces, off)" 

if b=4 then print spc((a*5)+116)” 
Ccbm 4,rvs,3spaces, off]" 

if b=5S then print spc((a*5)+156)"” 
Ccbm 4,rvs,3spaces, off)” 

if b="6 then print spc((a*5)+196)” 
Ccbm 4,rvs,3spaces, off]"” 

if b=7 then print spc((a*5)+196) ;spc( 
4O)"Ccbm 4,rvs,3spaces,off]” 

z(Cb,a)-® 

sp"sp+1 

if sp>2 then sp"1 

if sp=-l and b=1 then e-ztb,1)+z(Cb,2)+ 
z(b,3)+z(b,4)+z(Cb,5)+z(Cb,6)+z(Cb,7)+ 
z(Cb,8) 

if sp=1 and b=2 then e=z(b,1)+z(b,2)+ 
z(b,3)+zCb,4)+z(b,5)+zCb,6)+zCb, 7)+ 
z(b,8) 

if sp=1 and b=3 then e*-z(b,1)+z(b,2)+ 
z(Cb,3)+zCb,4)+zCb,S)+zCb,E)+zCb, 7)+ 
z(b,8) 

if sp=-1 and b=4 then e-z(b,1)+zCb,2)+ 
z(b,3)+zCb,4)+zCb,5)+zCb,E)+zCb, 7)+ 
z(b,8) 

if sp=-1 and b=5 then e=z(b,1)*+z(b,2)+ 
z(b,3)+zCb,4)+zCb,5)+zCb,6)+zCb, 7)+ 
z(b,8) 

if sp=-1 and b=6 then e»-z(b,1)+z(b,2)+ 
z(b,3)+zCb,YI+zCb,S)+zCb,6)+zCb,7)+ 
z(b,B) 

if sp=-1 and b=7 then e-z(b,1)+z(b,2)+ 
z(b,3)+z(Cb ,4)+z(b,5)+zCb,6)+zCb,7)+ 
z(b,8) 

if sp=2 and a=1 then e=z(1,a)+z(2,a)*+ 
z(3,a)+z(4H,a)+z(5,a)+z(6,a)+z(7,a) 

if sp=-2 and a=2 then e=z(1,a)+tz(2,a)+ 
2(3,a)+z(4,a)+z(5S,a)+z(6,a)+z(7,a) 

if sp=-2 and a=3 then e=-z(1,a)+z(2,a)+ 
z(3,a)+z(4,a)+z(5,a)+z(6,a)+z(7,a) 

if sp=2 and a=4 then e=z(1,a)+z(2,a)+ 
2(3,a)+z(4,a)+z(5S,a)+z(6,a)+z(7,a) 

if sp=-2 and a=5 then e»z(1,a)+z(2,a)+ 
z(3,a)+z(4H,a)+z(5S,a)+z(6,a)+z(7,a) 

if sp=-2 and a=6 then e-z(1,a)+z(2,a)+ 
z(3,a)+tz(4,a)+z(5,a)+z(6,a)+z(7,a) 

if sp=-2 and a"? then e=z(1,a)+z(2,a)+ 
z(3,a)+z(H,a)+rz(5,a)+z(6,a)+z(7,a) 

if sp=-2 and a"B then e»-z(l1,a)+z(2,a)+ 
2(3,a)+zC4H,a)+z2(5,a)+z(6,a)+z(7,a) 


2280 
2298 
23008 
23190 
2328 


2338 


2340 
2350 


2360 
2370 


2380 
2390 


2490 
2402 


2404 
2406 
2407 
2408 
2410 
2411 
eyu12 
E415 


24208 
2430 
2440 
EU4SO 
2468 
2470 


2480 
24998 
25908 
2518 
esı2 
2520 
e521 
2522 
2523 
e524 
B525 
2526 
2527 


2528 
2538 


2540 
2559 


2560 
2570 
8575 
25808 
2590 
2600 
2610 
2620 


2630 
26408 


2650 
26608 


26798 
26898 


if e=-® then 2780 

if sp=-1 and s1>"230 then 2780 

if s2>=230 then 2780 

goto 1439 

si-54272:poke si+24,15:poke si+1,43: 

poke si,219:poke si+5,197:poke si+6, 

240 

poke si+4,129:Ffor t=1 to 158:next : 

poke si+4,d:return 

poke 53280,4:poke 53281,11 

print "Cclr,Sdown,1Sright,whtlpick ’em 
up” 

print :print :print "L[llright, whtlein 
strategiespiel” 

print ;print "[Sright]fuer [cbm 3J1 
Cuhtloder [yel]l2 [Luhtlpersonen” 

print :print "[l6rightlJum zahlen” 

print :print :print "Cl2rightlund 
Cgrn]7 Cuhtlunbekannte 

for t=1 to 5000:next 

print "C3down,Sright,rvs) 
spielanleitung ?[shift-spacel( j/n) ” 

get wS:if wS=-""” then 2494 

if w$5=-"j"” then goto “4880 

if w$="n" then 3900 

goto 24094 

if hs=-4 and g*1 then 2415 

if hs=4 and g*3 then 2415 

if g>i then 2470 

print "Cclr,12down,ilright,cbm 331 
Cuhtloder [yell2 [Luht]spieler ?” 
get ta$:if ta$=""” then 2420 

if ta$="1" then p(g)*-i1:goto 2910 

if ta$="2" then p(g)-B:goto 2539 
goto 2429 

if. g*-1 then goto 2538 

print ”"Cclr,Bdown,3rightidie gleichen 
spieler wie vorher ?” 

print :print "[17right](C)/n)” 

get q$:if q$=-"" then 24399 

if q$="n"” then 2415 

if q$=-"j"” then 25228 

goto 2498 

print :print ”"Cclr,Sdown,4rightlJmal in 
umgekehrter reihenfolge ?" 

print :peint "CBrightllspieler 1 ist 
spieler 2)" 

print :print "[18right]()J/n)” 

get ua$:if ua$-"" then 2523 

if ua$=-"n" then p(g)-p(g-1):sa$-sa$: 
sb$*-sb$:goto 1928 

if ua$=-"j" and p(g-1)=1 then p(g)-2: 
sc$"-sb$:sb$"sa$:sa$*sc$:goto 1029 

if va$=-"j" and p(g-1)=2 then p(g)-1: 
sc$-sb3: sb$-sa$:sa$*-sc$:goto 1920 

if ua$=")"” then sc$=sb$: sb$-sa$: sa$- 
sc$:goto 19828 

goto 2523 

print "[clr,3down,4rightlbitte die 
spielernamen eingeben.” 

print :print "[Sright]Choschstens 3 
zeichen)” 

if p{g)-=2 then print "[Sdown,3right] 

spieler 1:[2spaces]commodore"”:sa$- 
”commodore”:goto 2588 

print "[Sdown,3right)”; :input "spieler 
1:";,sa$ 

if p(g)=1 then print "[3doun, 3right) 

spieler 2: [2spaces)commodore":sb$- 
"ceommodore” 

if p(g)=1 then gosub 1010:goto 25399 

print "[3down,3right]”; :input "spieler 
2:",sb$ 

if len (sa$)>9 then sa$"-left$ (sa$,9) 

if len (sb5)>3 then sb$-left$ (sb$,9) 

if len (sa$)<9 then sa$-leftS (sa$+"” 

C9spaces]”,9) 

if len (sb$)<3 then sb$-lefts 

[9spaces]”,9) 

goto 1828 

if y"196 then poke v+21,peek (v+21) 

and (255-2):for t=1 to 18001 next 

return 

if y"=76 then poke v+21,peek (v+21) and 

(255-4):For t=1 to 1008:next 

return 

if y"-148 then poke v+21,peek (v+21) 

and (255-B):Ffor t=1 to 1000:next 


(sb$+"” 
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26998 
2790 


2710 
2720 


2730 
2740 


2750 
2768 


2770 
2780 


2798 
2800 


2802 


2804 


2806 


2808 


2810 


2812 


2814 


2816 


return 

if y=-228 then poke v+21,peek (v+21) 
and (255-16):Ffor t=1 to 1888:next 
return 

if y=1908 then poke v+21,peek (v+21) 
and (255-32):Ffor t=1 to 1008:next 
return 

if y=-124 then poke v+21,peek (v+21) 
and (255-64):for t=1 to 1008:next 
return 

if y=172 then poke v+21,peek (v+21) 
and (255-128):for t=1 to 1880:next 
return 

for t=-1 to 2008:next :print "[cir]": 
poke v+21,8 

print "[wht,Sdown,llrightJs piele 
n de”:for t-1 to 2888:next 

if si>-18 and si1<1®8 then print "” 
[4down, 7right,cbm 61”;sa$;" Cuhtlhat 
[cbm 7,2spaces)”;s1;” Cuhtlpunkte,” 
if s1>-188 and si<-3 then print ” 
C4down, 7right,cbm 69”;sa$;” Cuhtlhat 
[cbm 7) ”;s1;” Cuhtlpunkte,.” 

if s1>9 and s1<108 then print "CHdown, 

7right,cbm 61”;sa$;” [whtJhat [cbm 72 
”;51;” Cwhtlpunkte.” 

if si<-99 then print "[4doun, right, 

cbm 6)";sa$;” [CwhtlJhat [cbm 73” ;s1;” 
Cuhtlpunkte.” 

if s1>99 then print "[4down, 7right, 
cbm 6]"”;sa$;" [Lwhtlhat [cbm 71”;s1;” 
Cwht]punkte.” 

if s2>-10 and s2<128 then print "” 
C2down,7right,cbm 61”;sb$;” [Lwhtlhat 
[chbm 7,2spaces)”;s2;” Lwhtlpunkte,” 
if s2>-108 and s2<-S then print ” 
C2down,7right,cbm 63";sb$;" [LwhtlJhat 
[cbm 7] ";s2;” Lwht]punkte.” 

if s2>9 and s2<198 then print ”[2down, 
7right,cbm 6]";sb$;* Cwhtlhat [cbm 7] 
”;s2;” Cwhtlpunkte.” 

if s2<-39 then print "[2down,7right, 

cbm 6]”;sb$;” [Cwht]Jhat [cbm 7)";s2;” 
Cwht]punkte.” 

if s2>99 then print "[2down, 7right, 
cbm 6)”;sb$;” Cwhtlhat [cbm 7]”;s2;"” 
Lwht]punkte.” 

if si=-s2 then print "[C4down, 12right] 
unentschieden[shift-space)! |" 

For t=-1 to 2088:next 

if si=-s2 then 6508 

if si?s2 then gosub 7188 

if sl?s2 then goto 6998 

if s2>sl then gosub 7198 

if s2>si1 then goto 6108 

for t=-1 to 5008:next 

print "[Cclr,10down,18rightInoch einmal 
(3/n) ?” 

get te$:if te$="”" then 2870 

if te$="j” then g-g+i:goto 2418 

if te$="n” then 300 

goto 2870 

print ”"Cclr,Sdown,SrightIdu spielst 
gegen den computer I!” 

For t=-1 to 200808:next 

if g>1l and p(g)-p(g-1) then 2520 

print :print :print "[SrightJwillst du 
spieler [cbm 3)1"”:print 

print "C[C1ßright,whtloder spieler [yel) 

2 Cwht]sein ?” 

get ta$:if ta$-"" then 2950 

if ta$="1" then p(g)=1:gato 2538 

if ta$=-"2” then p(g)=2:goto 2530 

goto 2958 

if x=-32 and peek (v+16)-192 then a-l: 

goto 3078 

if x-72 and peek (v+16)-192 then a=2: 

goto 39078 

if x=-112 and peek 

goto 3070 

if x=152 and peek 

goto 3978 

if x"192 and peek 

goto 3078 

if x-232 and peek 

goto 3078 

if x=-16 and peek (v+16)-193 then a*=?: 
goto 3978 


(v+16)-192 then a=3: 
(v+16)-192 then a=4: 
(v+16)-192 then a=5: 
(v+16)-192 then a=6: 
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142 
4673 


142 
4615 


142 
4803 


142 
4733 


142 
2052 


4134 
G161 


6645 


Sse41 


S563 


S5B26 


62008 


SpieleLissting 


> 
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if x"-56 and peek (v+16)-193 then a-B: 
goto 3070 ä 
gosub 1010 
b*1 
if b>7 then goto 2790 
if zCb,a)-® then b=b+tl:goto 30890 
if b=-7 and peek (v+16)-192 then gosub 
3850 
if b=-7 and peek (v+16)-193 then gosub 
3888 
if b=-7 then yr229:goto 1749 
if zCb+t1,a)=1 and not uClb,a)>uCb+1,a) 
then b=b+1 
if peek (v+16)-192 then gosub 3850 
if peek (v+16)-193 then gosub 3880 
if b=7 then goto 3118 
if zCb+1,a)=-® or uCb+1,a)<uCcb,a) then 
goto 3200 
if z(b+1,a)=1 then goto 3110 
if b=6 and psek (v+16)-192 then gosub 
3859 
if b=6 and peek (v+156)-193 then gosub 
3880 
if b=-6 then y-196:goto 17408 
if not uCb,a)>uCb+2,a) and z(b+2,a)-1 
then b=b+2 
if peek (v+16)-192 then gosub 3850 
if peek (v+16)-193 then gosub 3888 
if b=-7 then goto 3118 
if zCb+1,a)=-® or uCb+l,a)<uCb,a) then 
goto 3290 
if z(b+1,a)=-1 then goto 3119 
if b=6 then goto 3208 
if z(b+2,a)-® or ulb+t2,a)<ucb,a) then 
goto 3320 
if zCb+2,a)-1 then goto 3238 
if b=-5 and psek (v+16)-192 then gosub 
3858 
if b=-5 and peek (v+16)-193 then gosub 
3889 
if b=5 then y*=172:goto 1748 
if not ulb,a)>uCb+3,a) and z(b+3,a)-1 
then b=b+3 
if peek (v+16)-192 then gosub 3859 
if peek (v+16)-193 then gosub 3888 
if b=7 then goto 3118 
if zCb+1,a)=-1 and ucb+1,a)>=uCb,a) 
then goto 3118 
if b=-6 then goto 3208 
if z(b+2,a)=1 and uCcb+2,a)>-uCb,a) 
then goto 3200 
if b=-5 then goto 33208 
if zCb+3,a)=® or uCtb+3,a)<ucb,a) then 
goto 3450 
if z(b+3,a)-=-1 then goto 3320 
if b=-4 and peek (v+16)-192 then gosub 
3850 
if b=4 and peek (v+16)-=193 then gosub 
3888 
if b=4 then y=14B:goto 1740 
if not uCb,a)>uCb+4,a) and zCb+4,a)-1 
then b=b+4 
peek (v+16)-192 then gosub 3859 
peek (v+16)-193 then gosub 3880 
b=4 then goto 3450 
b=5 then goto 3320 
b=6 then goto 3200 
b=7 then goto 3118 
z(b+4,a)=-® or uCcb+4,a)<uCb,a) then 
goto 3600 
if zCb+1,a)=1 then goto 3118 
if zCb+2,a)=1 then goto 3208 
if zCb+3,a)=1 then goto 3329 
if zCb+4,a)=1 then goto 34508 
if b=3 and peek (v+16)-192 then gosub 
3858 
if b=3 and peek (v+16)-193 then gosub 
3880 
if b=3 then y-124:goto 17408 
if not uCcb,a)>uCb+5,a) and z(Cb+5,a)-1 
then b=b+5 
if peek (v+16)-192 then gosub 3858 
if peek (v+16)-193 then gosub 38828 
if b=3 then goto 3608 
if b=-4 then goto 3459 
if b=5 then goto 33208 
if b*-6 then goto' 32098 
if b=7 then goto 3118 


we, 


3321 


571 
363 
1273 
2049 
24708 


BE4E 


1768 
33798 


2436 
e447 
1330 
39814 


1805 
2462 


2638 


1898 
3447 


2436 
EuST 
1338 
3146 


1805 
1194 
3112 


1992 
2454 


2630 


1880 
3545 


2436 
2447 
1338 
2935 


1194 
2909 


1316 
3083 


18798 
2446 


2622 


1881 
3388 


2436 
2447 
1184 
1316 
1194 
1330 
3114 


1805 
1773 
1870 
1840 
2438 


2614 


1863 
3486 


2436 
2447 
1172 
1184 
1316 
1194 
1339 


3718 


3720 
3730 
3740 
3758 
3760 
3770 


37890 


37390 
3800 


3810 
3820 
3830 
3840 
3850 


3860 
3870 
3880 


3898 
39008 
3910 


3920 - 


3930 
3940 


3950 i 


3960 
3970 
3980 
3999 
4000 
4910 
4020 
4038 


49490 
4059 


4060 
4070 


4080 
40908 


4100 
4110 
4120 


4130 
4140 


4150 
4168 


4179 
4180 


4190 
42008 
4210 


4220 
4230 


4240 
4259 


42608 
4270 


4280 
4290 


4308 
4310 
4320 


4330 
4340 


4359 
4369 


if z(b+S,a)-d or uCcb+5,a)‘uCb,a) then 
goto 3778 

if z(b+tl,a)=-1 then goto 311® 

if z(Cb+2,a)"-1 then goto 3208 

if zCb+3,a)=1 then goto 3320 

if zib+4,a)=1 then goto 3458 

if z(b+5,a)=-1 then goto 36090 ! 

if b=-2 and peek (v+16)-192 then gosub 
3850 

if b=2 and peek (v+16)-193 then gosub 
3888 

if b=2 then y-1008:goto 17408 

if not ucb,a)>uCb+6,a) and zCb+6,3)-1 
then b=b+6:goto 3118 

if peek (v+16)-192 then gosub 3859 

if peek (v+16)"193 then gosub 3889 

if b=2 then goto 3778 

if b=1 then y"76:goto 1748 

poke v,32+C(Ca-1)*40):poke v+1,76+(Cb- 
1)»24) 

gosub 1010 

return f 

poke v,16+((a-7)*49):poke v+1,76+CCb- 
ı1)*24) 

gosub 10212 

return 

if y=76 then b=1:goto 3980 

y"18008 then b-2:goto 3988 

y-124 then b=3:goto 39898 

y"148 then b=4:goto 39898 

u="172 then b*S:goto 3988 

y"196 then b*-6:goto 3988 

y=-228 then b=-7:goto 3988 

gosub 1018 

a-l:poke v+16,192:x=32 

if a8 then goto 2798 

if z(b,a)-=-® then a-a+ti:goto 40008 

if a6 then poke v+16,193:x=® 

if a=-B then poke v+16,193: x-®:gosub 
4720 

if a=-8 then x=56:goto 1740 

if zCb,a+1)=1 and not uCcb,a)>uCb,a+1) 
then a-a+l 

if a<-6 then poke v+16,192:gosub 4590 
if a?6 then poke v+16,193:x-®:gosub 
4720 

if a=-8 then goto 4839 

if zCcb,a+t1)=-® or uClb,a+tl)<uCb,a) then 
goto 4108 

if a=-7 then gosub 4720 

if a=7 then x=16:goto 1742 

if z(b,a+t2)=1 and not ulb,a)>uChb,a+2) 
then a-a+2 

if a<-6 then poke v+16,192:gosub 4698 
if a6 then poke v+16,193:x-®:gosub 
4720 

if a=-B then goto 4030 

if zCb,a+1l)-1 and uCcb,a+l)>=-uCb,a) 
then goto 40508 

if a=-7 then goto 41008 

if zCb,a+t2)=-®8 or uCch,a+2)<uCb,a) then 
goto 4199 

if a=-6 then gosub 4590 

if a"6 then x=232:goto 1740 

if zCb,a+3)-1 and not ulb,a)>ulb,a+3) 
then a-a+3 

if a<=6 then poke v+16,192:gosub 45690 
if a?6 then poke. v+16,193:x-®:gosub 
4720 

if a=-8 then goto 49830 

if zCcb,a+l)=-1 and uCb,a+1l)>-uCb,a) 
then goto 4050 

if a=-7 then goto 4100 

if zib,a+2)=-1 and ucb,a+2)>=ulb,a) 
then goto "1208 

if a=6 then goto 4190 

if z(b,a+3)=-d or uCb,a+3)<uCb,a) then 
goto 4300 

if a=-5 then gosub 45690 

if a=5 then x=192:goto 1748 

if zCb,a+4)=1 and not ulb,a)>uClb,a+4) 
then a-ra+H4 

if a<=6 then poke v+16,192:gosub 4698 
if a?6 then poke v+156,193:x-®:gosub 
4720 

if a=-B then goto 4839 

if zCb,a+l)=1 and ulcb,a+1)>=uCb,a) 
then goto 49508 


3342 


1805 
1773 
1878 
1849 
18708 
2438 


2606 


1845 
4081 


2436 
2447 
1299 
1708 
3512 


571 
142 
3584 


571 

142 
1802 
1645 
1807 
1714 
1827 
1983 
1695 

571 
2123 


"1878 


1950 
ey2l 
3ey2 


1729 
3783 


e7ı2 
3222 


1019 
3300 


1269 
1719 
3662 


2712 
3222 


1019 
2998 


1136 
3309 


11408 
1723 
37396 


2712 
3222 


19019 
2998 


1136 
3990 


1137 
3437 


1132 
1848 
3675 


2712 
3222 


1019 
2998 


4380 


4390 
4400 


4410 
4420 


4438 
4440 
44S5® 


4460 
4478 


4480 
4498 
4508 
451® 


4520 
4530 


4540 
45598 
4568 


4570 
4580 


4530 
4600 


4610 
4620 


4630 
4540 
4650 


4660 
46708 
4680 
4690 


4700 
4718 
4720 


4738 
4740 
4500 


4810 


4820 


4830 


4840 
4B50 


4860 


4880 


48308 
4908 


4318 


4920 
4930 


4940 


4958 


4960 


4970 


4972 


if a=-7 then goto 4108 

if z(b,at2)=-1 and uCb,a+t2)>=uCb,a) 

then goto 4128 

if a=-6 then goto 4198 

if zCh,a+t3)-1 and ulb,a+r3)>-ucb,a) 

then goto 4212 

if a=-5 then goto 44300 

if z(b,a+4)=® or ulcb,a+t4)<ucb,a) then 

goto 4430 

if a=-4 then gosub 4590 

if a=-4 then x"152:goto 1748 

if z(b,a+t5)-1 and not ulb,a)>ulb,a+5) 

then a=a+5 

if a<t=6 then poke v+16,192:gosub 4598 
if a?6 then poke v+16,193:x-®:gosub 

4720 

if a=-8 then goto 4030 

an-l 

if a=-7 then goto 4108 

if z(b,a+t2)=1 and uCcb,a+t2)>=uCb,a) 

then goto 4128 

if a=-6 then goto "41390 

if z(b,at5)=B or uCcb,a+5)<uCcb,a) then 

goto 445408 

if a=-3 then gosub 45390 

if a=-3 then x"112:goto 1740 

if z(b,a+6)=1 and not ulb,a)>uCchb,a+6) 

then a=a+6 

if a<=-6 then poke v+16,192:gosub 4599 

if a6 then poke v+16,193:x-®: gosub 

4720 r 

if a=B then goto 4830 

if z(b,atl)=1 and ulb,a+t1)>=uCb,a) 

then goto 4059 

if a-7 then goto “4108 

if z(b,a+6)-® or uCb,a+t6)<ucb,a) then 

goto 4639 

if a=-2 then gosub 45930 

if a=2 then x*72:goto 1748 

if z(b,a+7)=1 and not ulb,a)>ulb,a+7) 

then a=a+t7 

if a=1 then poke v+16,192:gosub 4590 

if a=-l then x=32:goto 1740 

if a=-B then goto 4030 

poke v,32+C(a-1)*40):poke v+1,76+CCb- 

1)=24) 

gosub 1018 

return P 

poke v,16+CCa-7)*40):poke v+1,76+(Cb- 

1)*24) 

gosub 1018 

return 

print "Cclr,2down,Sright,yel,rvs] s p 
ielanleitvung [off}":gosub 

5008 

print "C2down,wht,2spaces]ziel des 
spiels ist es, mehr punkte” 

print "[2spaces)zu sammeln als der 
gegner .":gosub 5080 

print "Cdown, 2spaces] jeder spieler 
sammelt abwechselnd” 

print "[2spacesleine zahl.”:gosub 5000 

print "Cdown,2spaces]spieler 1 beginnt 
immer ,”":gosub 5008 

print "Cdown,2spaces]spieler 1 kann 
nur waagerecht sammeln, [2spaces] 

spieler 2 nur senkrecht.” 

print "[C3down,ilspaceslweiter mit 
[space)” 

wait 56321,16,15 

print "Cclr,2down,2spaces]der bei der 
ersten zahl links oben” 

print "[2spaceslerscheinende 
sammelbehaelter” 

print "[2spaces)(ein gelbes rechteck)” 
print "C2spaces]kann mit den Joysticks 
bewegt werden.”:gosub 5008 

print "Cdown, 2spaces]( Joystick Fuer 
spieler 1 in port 2," 

print "C2spaces)] Joystick Fuer spieler 
2 in port 1.)":gosub 5000 

print "[Cdown, 2spaces)zum sammeln der 
gewuenschten zahl auf” 

print "[C2spacesIden Feuerknopf 
druecken.”:gosub 5098 

print "Cdown,2spaces)hinter den 
kleeblasttern kann sich ” 
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4975 
4976 


49377 
4978 


49373 
4980 
4381 


43B2 
4983 
4984 
4985 
4986 
4987 
4988 


4989 
4990 


4995 
4933 
50928 
6008 
6018 
6920 
6040 
6058 
60608 
6080 
6099 
6095 
6100 
6119 
6120 
6130 
6148 
6158 
6182 
6198 
6195 
6502 


6510 


6520 


6525 
65398 


6532 
6535 
6540 


6542 
65598 


6552 
6555 
6560 


6562 
6570 


6572 
6575 
6580 
6590 


6595 
6538 


65993 


print "[2spaces))jede zahl zwischen 
Ccbm 3J-25 [whtlund [cbm 31+25” 

print "[Luht  ‚Zspaces)verbergen.” 

print "[3down,11spaces]lweiter mit 
C[space)]” 

wait 56321,16,16 

print "Cclr,3down, 2spaces]lwer - 
absichtlich oder versehentlich -” 

print "Lup,2spaces]versucht, an einem 
platz zu sammeln,” 

print ”"[2spaces)lan dem keine zahl mehr 
steht," 

print "[2spaces)bekommt [cbm 3175 
Cuht]strafpunkte abgezogen."”:gosub 

5000 

print "C2down, 2spaces]das spiel ist 
beendet, wenn” 

print "Cdown,2spaces]1) ein spieler im 
verlauf des spiels” 

print "[S5spaces,cbm 3238 [Lwhtl]punkte 
erreicht hat,oder” 

print "Cdown,2spaces]2) ein spieler in 
einer reihe steht,” 

print "[Sspaces]lin der alle zahlen 
schon gesammelt” 

print "[SspacesJwurden, oder 
spaetestens” 

print "Cdown, 2spaces)]3) das ganze 
spielfeld leergesammelt” 

print "[SspacesJworden ist.” 

print "C3down, 11spacesJlweiter mit 
Cspace)” 

wait 56321,16,16 

goto 998 

for t=-1 to 3008:next :return 
Ffa=-l:print "[4up)” 

For fr=3 to 16 

poke E46, fr 

print "Cup, 7right]”;sa$ 

For t=1 to 308:next 

next 

Fa=-fa+1 

if Fa?7 then 65008 

goto 6012 

£fb-1 

for fr"=3 to 16 

poke 646, fr 

print "Lup, 7right]” ;sb$ 

for t=1 to 38:next 

next 

Fb-fb+1 

if Fb>7 then 6508 

goto 6118 

print "Cclr,2down,3right,cbm 3,rvs] h 
oechstergebnisse (loff) 
” 


rem ifg-l1thenh1$-"” "in28-” 
",n38=” ner r 

if s1>=-h1 then h5=h4: hHSS=h4$: h4=h3: h4S 

-h33:h3=h2: h3$=h2$: h2=-h1:h2$=h1$ 

if si>=-hl then hi=s1:h1$=sa$ 

if s2>=hl then h5=h4:h5$=h4$: h4=h3: h4S 

-h3$:h3=h2: h35=h2$: h2=h1:h2s=h18 

if s2>=hl then hi=s2:h1$=sb$ 

if h1$=-"[9spaces])” then h1-® 

if si>=h2 and si<h1l then h5=h4:h5$= 

h45: h4=h3: h4$=h3$ : h3=h2:h3$=h2$ 

if si>=-h2 and si<chl then h2=s1:h2$=sas 

if s2>=h2 and s2<h1 then h5=h4:h5$= 

h48$: h4=h3: h4$=h3$: h3=h2: h3$=h2S 

if s2>=h2 and s2<h1 then h2=s2: h2$=-sb$ 

if h2$5=-"[Sspaces)” then h2=2 

if s1?>=-h3 and si<h2 then hS=h%: 

h45: h4=h3: h45=h3$ 

if si>=h3 and si<h2 then h3=s1: 

if s2>=h3 and s2<h2 then hS=h4: 

h45:h4=h3: h4S5=h3$ 

if s2>=h3 and s2<h2 then h3=s2: 

if h35=-"[C9spaces]" then h3-8 

if s1>=-h4 and si<h3 then hS=hy: 

h4$:h4=s1:h4$=sa$ 

if s2>=h4 and s2<h3 then hS=ht4: 

h4$: h4=s2: h4S=sb$ 

if h4$="[9spaces]"” then h4=2 

if g=-1 then h3$="[9spaces]":h4$=" 

C9spaces]”:h3=9:h4=® 

if hs=2 then 908 


h5$- 


h3$-sa$ 
h5$- 


h3$=sb$ 
h5$5- 


h5$= 


Mai/87 IUD 147 


BRENNER Spiele Listing ZT Te ep 


if h1<128 then print "[3down,SGright, 4spaces)”;h4; "CwhtlJpunkte” 
wht]1.)C2spaces,chm 33”;h18$; "Luwht, if h4>=10 and h4<108 then print ” 
4spaces]"; hl; "LwhtIJpunkte” C2down, 6right ,wht]4.IC2spaces,cbm 3)"; 
if h1>-=18 and h1<188 then print ” h4$; "Cuht  ,3spaces)"; hit; "LuhtIpunkte” 
E3down,6right, wht21.)C2spaces,cbm 33"; if h4>=100 then print ”Cädown,Gright, 
h1$; "Luht ,3spaces)”; hl; "Lwht]punkte” wht]4.)C2spaces,cbm 3J”;h48$; "Cuwht, 
if h1>=102 then print "[3down,6right, @spaces]";h4; "Lwht]punkte” 
wht]1.)C2spaces,cbm 3)”;h1$; ”"Cuwht, print ”C3down,15spaces]- space -" 
2spaces)"”; hl; "[whtlpunkte” wait 56321,16,16 

if h2<18 then print "[C2down,6Gright, hs-hs+4 

wht]2.)[C2spaces,cbm 3)”;h2$; "Cwht, goto 2869 

Yspaces)” ;h2; "Luwht]punkte” poke 54286,15:poke 54277,191:poke 

if h2>=18 and h2<108 then print ” 54278,99 

C2down,6right ,wht]2.)L2spaces,cbm 3)"; tt®1 

h2$; "Luht, , 3spaces)]"; h2; "LCwht]punkte” if tt=1 then gosub 7208 

if h2>=188 then print "[C2down,6right, if tt=2 then gosub 7218 
wht]2.)[C2spaces,cbm 3)”;h2$; "[wht, if tt=3 then gosub 72298 
2spaces]”;h2; "Lwhtlpunkte” if tt=4 then gosub 7239 

if h3<18 then print "C2down,6Gright, if tt>4 then 7199 
wht1]3.)[C2spaces,cbm 323”;h3$; "Luht, poke 54276,17 

Yspaces)}”;h3; "Cuhtl]punkte” for t=1 to 1824:next 

if h3>=198 and h3<1088 then print "” poke 54276,0 

C2down,6right, wht]3.)[2spaces,cbm 3)”; tt=tt+1 

h3$; "LCuht ,‚3spaces]” ;h3; "Lwhtl]punkte” goto 7120 

if h3>=108 then print ”"[C2down,Sright, return 

wht)J3.)[2spaces,cbm 33”;h3$; "Cuht, poke 54273,17:poke 54272,183: return 
2spaces)”;h3; "Cwht]Jpunkte” poke 54273,21:poke 54272,237: return 
if h4<108 then print "[2down,6Gright, poke 54273,26:poke 54272,28:return 
whtJ4.3C2spaces,cbm 3J”;h4$; ”Cuwht, poke 54273,34:poke 54272,207: return 
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ENDLICH WIEDER DA! 
ZAHRNT DV-VERTRÄGE 


Die Prozesse um EDV-Leistungen 
— ob Hardware, Software oder 
Peripherie — und die Summen der 
eingeklagten Streitwerte nehmen 
sprunghaft zu. 


Vor allem Black-Box-Anwender 
haben Ärger mit dem Computer. 
Überraschenderweise zumeist 
mit mangelnder Hardware- 
Kapazität. 


Wer vorbeugend die richtige ver- 
tragliche Absicherung fixiert, der 
spart nicht nur Ärger und reduziert 


sein Prozeßrisiko, der hat ein- Christoph Zahrnt 


fach mehr von seinem Computer. DV-Verträge 
Denn so kann er seine Lieferan- 1985, 206 Seiten, Brosc 
ten in die Pflicht nehmen. DM 75,— 


5 2 £ Bestellnummer: 1 CW 5 
Wie’s gemacht wird, damit Ver- 


träge Hand und Fuß haben, das 


steht im »neuen« Zahrnt GW : ® EDITION 


Fachbücher für professionelle Computer-An 


Ich/Wir bestelle(n): 


Name Vorname 


g 
N Expl.Best.Nr.: 
j S 
Ss SS & ” 
TE N Unterschrift 
NG Pig EE RS r e y 
} EESNNIIEE N MD) Bitte senden Sie mir Ihr 
Ss EI EEF a a Er Se 
* all, ER, Postleitzahl/Ort Bücherverzeichnis 


£ 
BESTELLSCHEIN: 


Bestellschein bitte ausfüllen und 
ggf. mit unterschriebenem Verrech- 
nungsscheck in einem ausreichend 
frankierten Umschlag schicken an: 
CW-Publikationen 
Verlagsgesellschaft mbH — 
Vertrieb 
Postfach 40 04 29, 
D-8000 München 40 

SH 7 


ah, 
[1x 
mE, 


* Inlandpreise 


Ausführliche _ Informa- 
tion rund um Amiga. 
Objektive und aussage- 
kräftige Tests, Hinter- 
grundberichte und Ein- 
stiegshilfen verbunden 
mit dem Know-how, das 
Ihnen nur ein starkes 
Team von Fachleuten 
bieten kann. Nutzen Sie 
dieses Wissen für sich. 


Amiga-Welt: Das unent- 
behrliche Informations- 
und Nachschlagewerk. 


& 


Fr It 


omputerwelt 


ich bestelle das Amiga-Welt direkt 


beim Verlag. Name/Vorname 

Zahlungsweise (Zutreffendes bitte 

ankreuzen): Straße/Nr. 

Verrechnungsscheck über DM 14,— 

(DM 12,— Heftpreis + DM 2,— Rückporto) 

liegen bei. PLZ/Ort 

Versand per Nachname zum Preis von 

DM 15,70 (DM 12.— Heftpreis, DM 2.— n - 

Porto, DM 1,70 Nachnamegebühr) Unterschrift 
Datum 


Spiele 


Wer Probleme bei 
BARD'’s TALE hat, wird 
hier bestens bedient: 
Mit diesem Programm 
werden Charaktere 
maßgeschneidert in 

den Kampf geschickt... 


1986 war das Jahr von BARD's 
TALE. Viele Rollenspieler wußten 
bei der einen oder anderen Spiel- 
situation nicht mehr weiter und 
schickten Hilferufe an die RUN- 
Redaktion: Wo finde ich diesen 
oder jenen Gegenstand, wie ge- 
lange ich in den Turm des Zaube- 
rers etc, Abenteurer die den er- 
sten Teil gemeistert haben, neh- 
men jetzt Bard's Tale 2 in Angriff. 
Der Pfusch-Discount hilft bei bei- 
den Bard’s Tale-Spielen. 

Nach dem Programmstart muß 
eine CHARACTER-DISC einge- 
legt weren, die zuvor im Bard's 
Tale-Spiel mit Party-Files belegt 
wurde. 

Wenn der Rechner alle Charakte- 
re eingelesen hat, stehen im an- 
schließend angezeigten Haupt- 
menü folgende Funktionen zur 
Verfügung: 

Charaktere editieren, alle Cha- 
raktere abspeichern, neue CHA- 
RACTER-DISC einlesen, gelösch- 
te Charaktere wiederholen, Cha- 
rakter validieren. 


Erläuterung der 
Menüpunkte 


1) Charaktere editieren 

Nach dem Anwählen dieses Me- 
nüpunktes wird auf dem Bild- 
schirm der erste Charakter mit al- 
len Fähigkeiten und Attributen 
dargestellt. Dem Benutzer stehen 
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DER BARD’S TALE 
PFUSCH-DISCOUNT 


BITTE 
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IHRE CHARACTER-DISC EINLEGEN 


DRUECKEN. 


[ 
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Spielerträume werden wahr: Merlin mit Superpower 


jetzt zahlreiche Funktionen zur 
Verfügung: Beim Druck einer Ta- 
ste von A-T lassen sich einzelne 
Charakterattribute verändern. 
Gibt man beispielsweise den 
Kämpfern magische Fähigkeiten, 
indem ihnen „SPELL POINTS" und 
ein paar „SPELL LEVELS" zuge- 
teilt werden, so sind sie in der 
Lage, Zaubersprüche zu spre- 


chen. Die Kampfstärke kann pro- 
blemlos auf ein Maximum gestei- 
gert werden. 

Mit einem Druck auf die V-Taste 
löscht man den momentan ange- 
zeigten Charakter (natürlich mit Si- 
cherheitsabfrage) und mit der 
SPACHE-Taste gelangt man zum 
nächsten. Bei Betätigung der U- 
Taste werden sämtliche Gegen- 


stände aufgelistet, die der mo- 
mentan bearbeitete Charakter bei 


sich träge Es besteht nun die Mög- vieren 


\ichkes Eeenstände zu löschen 


oder 


aus einer Tabelle von 127 ver- 
schiedenen auswählbar sind. Mit 
der Linkspfeil-Taste werden alle 
Untermenüs verlassen. 

2) Alle Charaktere abspeichern 
Dieser Menüpunkt speichert nach 


einer 


che Charaktere wieder auf die 
„CHARACTER-DISC". Ein eventu- 
eller Schreibschutz-Aufkleber auf 
der Diskette muß hierzu entfernt 
werden. 


werden. 
4) Gelöschte Charaktere reakti-_Da nicht der ganze Aufzeichnungs- 


Spiel sinken. 


code analysiert und entschlüsselt 


Falls einmal ein Charakter verse- werden konnte, können einige 


weiche Gazuzugeben, die hentlich gelöscht wurde, so kann Sachen nicht verändert werden, 


er mit diesem Menüpunkt wieder so zum Beispiel die Rüstungsklas- 
„zum Leben erweckt" 
Das Programm geht alle gelösch- zahl der Angriffe pro Runde, die 
ten Charaktere durch, bei denen bei Paladinen in höheren Stufen 
allerdings (durch das vorherige zunimmt. Deswegen folgender 
Löschen bedingt) der erste Buch- Tip: Man erhöht nur die Erfah- 


werden. se (ARMOR-CLASS) oder die An- 


Sicherheitsabfrage sämtli- stabe fehlt. Mit „J* oder „N“ wird rungspunkte (EXPERIENCE 


3) Neue CHARACTER-DISC ein- men. 


lesen 


Ein Anwählen dieses Menüpunk- 
tes führt nach einer Sicherheitsab- 


frage 


gramms. Dann kann eine andere 


entschieden, ob der gelöschte POINTS) und geht im Spiel dann 
Charakter wieder ins Spiel soll. ins „REVIEW BOARD" (um aufzu- 
Für jeden so wiedergeholten Cha- steigen), und läßt dort den Cha- 
rakter wird als erster Buchstabe rakter befördern. 


des Namens ein „A" angenom- Vielleicht sollten wir noch darauf 


hinweisen, daß jeder, der BARD’S 


5) Charaktere validieren TALE ohne Pfuschen spielen 


Diese Funktion räumt den Spei- möchte, dieses Programm besser 
cher auf, dasheißt, sämtlichenoch nicht ausprobieren sollte, da die 


zum Neustart des Pro- „intakten“ Charaktere werden an Versuchung zu mogeln groß ist! 


den Anfang geholt, so daß die La- 


„CHARACTER-DISC" eingelegt dezeiten für die Charaktere im (Thomas Kolbe) mu 


5 
6 
7 


rem H#unuunnununnuaununasnn 


rem geschrieben in 1386 von 
zuheir urwani & 

rem thomas kolbe 

rem 4358 recklinghausen 

rem a N I I ee ee 

print "[clr]":poks 53289,0:poke 53281, 
®:gosub 5808:rem init 

print tab(18)"[down,red) [Lrvs,shift £, 
15spaces,cbm *]":print tab(192)"Crvs, 
shift £,17cbm t,cbm *J" 

for i=1 to 5:print tab(18)"Cyel, 
Espaces,cbm +,13spaces,cbm +]":next i 
for i=-1 to 5:print tab(19)"Cblu] [Lrvs, 
17cbm t]J":next i 

print "C4up]” tab(12)"CwhtIder bard's 
tale”:print tab(12)”"Cdown)pfusch- 
discount” 


® print "[6down,cbm 7,3spaces]bitte ihre 


character-disc einlegen” 

print "[down,18spacesJund [rvs,cyn) 
spacelcbm 7,0ff] druscken." 

get aS:if a$<>” " then 129 

print "[elr,12down]"” tab(14)”"Cgrn) 
bitte warten” 

rem einlesen der charaktere 

poke 251,8:poke 252,192:sys 828, "nmd9” 
8 


poke 252,200:sys 828, "nm®1”,8:goto 
70088 

a-49152:rem umrechnen & decodieren 
gosub 18208:rem naechsten charakter su 
chen 

na$="":for s=® to 15 

if peek (a+s)<>255 then na$-na$+chr$ 

C peek (a+s) and 127) 


® next s 


at(1)=( peek (atri6) and 248)/8 

at(2)=-C peek (a+16) and 7)*4+C peek Ca 
+17) and 192)/64 

at(3)=-(C peek (a+17) and 31):at(4)=C 
peek (a+18) and 248)/8 

at(5)=C psek (at18) and 7)*4+C peek (a 
+19) and 192)/64 


D ep$="":for s=29 to 31l:ep$-ep$s+chr$ (48 


+peek (a+s)):naxt s 
g5-"":Ffor s=36 to 47:g$=g$+chrs (4B+ 
peek (a+s)):next s 


WO KENRREETER WERE EM 


le=-peek (a+34)*256+psek (a+35):rem stu 
fa 

kl=peek (a+56):rem charakterklasse 
ra=-peek (a+57):rem rasse 

hm=peek (a+48)*256+peek (a+49):rem hit 
points maximum 

hp=-peek (a+59)*256+psek (a+51):rem hit 
points 

sm-peek (a+52)*256+peek (a+53):rem spe 
llpoints maximum 
sp-peek (a+54)*256+psek (a+55):rem spe 
llpoints 

for s=-® to 7:ge(s)-peek (a+s*#2+81): 
next s 

ag"-®:ge(B)-® 

if gelag)>® then ag-ag+ti:goto 558 

for s=1 to 4:sl(s)=-psek (a+s+63):next 
s:rem spell levels 

sa-peek (a+62):rem status 

rem anzeigen 

print "[Cclir,wht]la] name : [Ccbm 7”; 
na$ 

print "[wht]Cb] race : [cbm 7)”; 
ra$(ra) 

print "[wht][c] class: [cbm 7)”; 
klSCkl):print 

for i=1 to S:print "[wht]Jl” chrs (67+ 
i)”] "at$li)”:[cbm 7]”;atli):next i 
print :print "Cwht][li] gold[Bspaces): 
Ccbm 7)”;g$ 

m "Cwht]ljJ exper.points: [cbm 73” 
;ep 

print "Lwht]Ck] levell7spaces]:[cbm 7] 
":ie 

print "[down,whtJC1lJ spell points: 
Ccbm 7]";sp 

print "Lwht]Lm) sppt maximum: Ccbm 73”; 
sm 

print "[Cwht]£n] hit points[l2spaces): 
[cbm 71”; hp 

print "[whtJ[Lo] hp maximuml2spaces): 
Ccbm 72”; hm 
print "[Lwht]lt] status[l6spaces): 

Ccbm 71” ;s$(sa) 
print ”"Chome ,4down]” tab(13)”"Lwht] 
spell-levels:”; 
for i=1 to 4:print tab(27)”LuwhtIl” 
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chr$ (i+79)”"] "s15Ci)":C[Ccbm 7J*;s1li): 

next i 

print "[12down,whtJ[Lu] gegenstaende 
veraendern” 

print "[v] charakter loeschen” 

print ”"[space] naechster charakter” 

> print ”"[«J zurueck ins hauptmenue"” 

get a$:if a$="" then 3990 

if a$5=-"b" then ra-ra+1-int C(ra+1)/7)* 

7:goto 620 

if a$=-"c” then kl=kl+1l-int CCkl+1)/11) 
*11:goto 628 

if a$="t" then sa=sa+l-int ((sa+1)/7)* 
7:goto 620 

if a$=" ” then gosub 29000: a=a+12B: 
goto 318 

if a$="«-"” then gosub 290088:goto 798908 
if a$="u” then 3088 

if a$="v"” then 29098 

if a$<c”"a” or a$>"v” then 908 

poke 211,x(C asc (a$)-64):poke 214,4C 

asc (a$)-64) 

sys 58732:sys 42336: b$-"”” 

for i=1l to 16:if psek (S11+i)<>® then 

bS=-b$S+chr$ ( peek (S511+i)):next i 

if a$S="a” then na$=-b$:goto 628 

for i=1 to len (b$):if mid$ (b$,i,1)>=- 
”9” and mid$ (b$,i,1)<="93" then next i 


® b$S=-left$ (b$,i-1) 


if a$=-"i” or a$5="j" then b$S=right$ 
(”080890290000899"”+b$,12) 

if a$="i” then g$=b$ 

if a$=-"j" then ep$-b$ 

if a$>"o"” then if val (CbS)<B then sl( 

asc (a$)-79)-val (b$) 

if a$<"i” then if val (bS)<32 then 

at( asc (a$)-67)-val (b$) 

if a$="k” then if val (b$)<1008 then 
le=val (b5) 

if a$="]"” then if val (b5)<10008 then 

sp"-val (b$) 

if a$=-"m” then if val (b$)<10000 then 

sm-val (b$) 

if a$-"n" then if val (b$)<190008 then 

hp=val (b$) 

if aS="o" then if val (b$)<109800 then 

hm=val (bS) 

goto 629 

print "Chome,wht,Bdown]” tab(1®)”[Lrvs, 

cbm a,20shift *,cbm s]"” 

print tab(18)"[rvs,shift -,2spaces] 

moechten sie denl2spaces,shift -]” 

print tab(18)"[rvs,shift -] charakter 
wirklich [shift -]” 

print tab(18)”"[rvs,shift -,5spacss] 
loeschen ?[Sspaces, shift -]” 

print tab(18)"[rvs,shift -,2spaces] 
(j)a oder (n)einl2spaces,shift -]” 

print tab(18)”"Crvs,cbm z,208shift *, 

cbm x]” 


® get a$:if a$<>”n” and a$<>"”j"” then 


2068 

if a$=-"j" then poke a,0:1%=1:goto 318 
goto 628 

rem gegenstaende 

print "[clr,whtliname: [Ccbm 73”;na$” 
Cdown]” 


For i=1 to B:print mid$ ( str$ (i),2); 


ne Ne 


if ag=-i then print g$(geli-1)):goto 
3059 

print 

next i:print 


if ag>® then print "LwhtICl] 
gegenstand loeschen” 

if ag<8 then print ”"[whtlCn) neuen 
gegenstand hinzufusgen” 

print ”[+-J zurueck zur gesamtansicht” 

get a$:if a$="«-"” then 628 

if a$-"n" and ag“8 then 3308 

if a$c>”"1”" or ag*®d then 3198 

print ”CdownJnummer #"; 

get a$:if a$<"1” or a$>chr$ (4B+ag) 
then 3150 

s-asc (a$)-48:print a$ 

Ö if s=-ag then 3208 

for i=-s-1 to ag-i1:geli)-geli+1):next i 
ag-ag-1:goto 3008 

an=® 


print "Cclr]J”:for i=an to an#+15 
if i<>® then print "[Lwht]” right$ (” " 
+str$ (i),3)”) Ccbm 7)”g$(i); 

Beine tab(29)”Luht]” right$ (" "+str$ 
(i+16),3)”) Ccbm 723”gSCi+16):next i 
print »Cdoun, whtIC+] weiterblaettern"” 

print ”"[-] zurueckblaettern” 

print "[a] auswaehlen” 

print "[C*] zurueck” 

Ars aS:if a$=-"«-"” then 3008 

if a$=-"+” then an=-an+32-int CCan+32)/ 
128)*128:goto 3318 

if a$="-" then an"an-32-int C(Can-32)/ 
128)*128:goto 3318 

if a$<>”a” then 3408 

print "[Cdown]nummer #”;:open 1,0: 
input#1,nr$:close 1:nr-val (nr$) 

if nr<1 or nr>127 then 3318 
ge(lag)*-nr:ag-ag+i:goto 3908 

print ”Chome, wht ‚Sdown)”;tab(19);” 
Ervs,cbm a,28shift *,cbm s,off)” 
print tab(198); "Crvs,shift -,2spaces] 
moechten sie die[l2spaces,shift -,off]” 
print tab(18);"[rvs,shift -] 
aenderungen wirklich[shift -,off]” 
print tab(108); "Crvs,shift -,3spaces] 
abspeichern ?[4spaces,shift -,off)” 
print tab(10);"[rvs,shift -,2spaces] 
(j)a oder (n)einl[l2spaces,shift -,off)” 
print tab(18);"C[Crvs,cbm z,20shift ®, 
cbm x,off]” 

get a$:if a$<>"”n” and a$<>”j"” then 
4068 

if a$="n" then return 

print "[clr,12down)” tab(14)”Cgrn] 
bitte warten” 

open 15,8,15,"s:nm®d®,nmd1”:close 
open 2,8, ER "nma® ner 

print#2, chrs (B);chr$ (132); 

For i=® to 2047: print#2,chr$ C peek 
(49152+i));:next i 

close 2 

open 2,8,2,”nmd1,p,w 

print#2,chr$ (®);chr$ (132); 

for i=-® to 2047:print#2,chr$ ( psek 
(51288+i));:next i 

close 2 

return 

dim at(5),at$(5):rem attribute 

dim ge(8),ge$(128):rem gegenstaende 
dim ra$(18):rem rassen 

dim kl5(18):rem klassen 

dim sl(4):rem spell levels 

dim s$(6):rem status 

dim g$(127):rem namen der gegenstaende 
dim x(19),y(19):rem cursorpositionen f 
ver bildschirmmaske 

dim sl$(4):rem abkusrzungen der zauber 
faehigen klassen 

For i=1 to S:read at$(i):next i 

for i=® to 6:read ra$(i):next i 

for i=-® 18:read kl$(i):next i 

for i-® 6:read s$(i):next i 

For i-1 127:read gS$S(i):next i 

for i-1 19:read x(i),yCi):next i 
for i-i1 4:read slSCi):next i 

for i-® 14:read s:poke 828+i,s:next 
i:return 

data at? iar, rdx”, »cn”, 1x” 

data "human”, "elf”,”dwarf”, "hobbit”, 
"half-elf”, "half-orc”, "gnome” 

data "warrior”, "wizard”, ”sorcerer”, 
”conjurer”, "magician”, "rogue” . 

data ”bard”, "paladin”, "hunter”, "monk”, 
uch ts 

Beta er Fund? old" Fdand”, 
”ston”, "para", ”poss” 

data "torch"”, ”lamp”, "broadsword”, 
"short sword”, "dagger", "war axe” 

data "halbard”, "mace”, "staff”, 
"buckler”,"tower shield”, "leather 
armor” 

data "chain mail”,"scale armor”, "plate 
armor”, "robes”, ”"helm” 

data "leather gloves”, "gauntlets”, 
"mandolin”,”harp”, "Flute”, "mthr sword"” 

data "mthr shield”, "mthr chain”, "mthr 
scale”, "”samurai Fgn”,”bracers [6]” 
data "bardsword”, "fire horn”, 


"lightwand”, "mthr dagger”, "mthr helm” 
data ”mthr gloves”,"”mthr axe”, ”"mthr 
mace”,"mthr plate”, ”"ogre fgn” 

data "lak's lyre”,”shield ring”, "dork 
ring",”"fin'’s flute”,"kael’s axe” 
data "blood axe”, "dayblade”, "shield 
staff”, "elf cloak”, "hawukblade” 

data "admt sword”, "admt shield”, "admt 
dagger", "admt helm”, "admt gloves” 
data "admt mace”, "broom”, "pureblade”, 
"exorwand”, "ali's carpet” 

data "magic mouth”, "luckshield”, "giant 
fgn","admt chain", ”admt scale” 

data "admt plate”, "bracers [4]J”, 
"arcshield”, "pure shield”, "mage staff” 

data "war staff”,"thief dagger”, "soul 
mace”,"wither staff” 

data "sorcerstaff”, ”sword of pak”, 
"hsalharp”,"galt'’s fFlute”,"frost horn” 

data ”"dmnd sword”, "dmnd shield”, "dmnd 
dagger”,"dmnd helm”, ”golem fgn” 

data "titan fgn”, "conjurstaff”,"arc’s 
hammer”, "staff of lor”, "powerstaff” 

data "mournblade”, ”dragonshield”, "dmnd 
plate”, "wargloves”, "lorshelm” 

data "dragonwand", "kiel’s compass”, 
"speedboots”, "Flame horn”, "truthdrum” 

data "spiritdrum”,"”pipss of pan”,”ring 
of power”, "deathring” 

data "ybarrashield”, "spectre mace”, 
"dag stone”, "arc'’s eye”, "ogrewand” 
data "spirithelm", "dragon fgn" 

data "mage fgn","troll ring”,”troll 
staff”, "onyx key”, "crystal sword” 
data "stoneblade”, "travelhelm"”, 
"deathdagger”, "mongo fgn”,"lich fgn” 
data "eye”, "master key”,"wiz wand”, 
"silvr square”, "”silvr circle” 

data ”"silvr triang”,"thor fgn", "old 
man fgn”,”spectre snare” 

data 11,0,0,0,0,90,8,4,8,5,8,6,8,7,8,8, 

48,10,18,11,18,12,18,14,18,15,18,16 
data 18,17,35,4,35,5,35,6,35,7 

data "so”,”co”,”ma”,”"wi” 

data 32,253,174,32,212,225,166,251, 
164,252,169,0,76,213,255 

rem hauptmenue 

print "[Cclr,yel]” tab(15)”hauptmenue” 
print tab(15)"[grnI)===—————--[Luht)” 
print "[2down) [1)[2spaces,cbm 7] 

charaktere editieren” 

print "Cdown,wht) [C2J[2spaces,cbm 7] 
alle charaktere abspeichern” 

print "Cdown,wht] [3J[C2spaces,cbm 7] 

neue character-disc sinlasen"” 

print "Cdown,wht) [C4JCl2spaces,cbm 7] 

gelosschte charaktere wiederholen” 
print "Cdown,wht) [CSIC2spaces,chbm 7] 

charaktere validieren” 

print "Cdown,wht) [6JC2spaces,cbm 7] 

ende” 

print "C2down,whtJihre wahl:”; 

get z$:if z$<"1" or z$>"6” then 7100 
print z$:if z$="1" then 308 

if z$=-"2" then gosub 49900 

if z$=-"3" then gosub 38008:if ans="j"” 
then run 

if z$5=-"4” then gosub 30900: if ans="j" 
then gosub 8098 

if z$="5" then gosub 3008988: if ans="j"” 
then gosub 

if z$<>"6" then 7008 

gosub 30008:rem sicherheitsabfrage 

if an$="n" then 79008 

print "Cclr)”:end 

rem gelosschte charaktere wiederholen 
print "Cclr,uhtlwiedergeholte 
charaktere:” 

print DR a u 

Ccbm 7,down]” 

for a=-49152 to 53128 step 128 

if peek (a)<>® or peek (a+1)-® then 
next a:goto 8860 

as=-"?":for i=-1 to 15:if peek (a+i)< 
855 then a$=a$+chr$ ( peek (a+i) and 
127):next i 

print a$; 
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8952 
8053 


8054 


BOSS 
80608 


8070 
8080 
9220 
s920 
3938 
3940 
9058 
9068 
93978 
3089 
3108 
3118 
100008 
122108 
10928 
10025 
190839 
10035 
19042 
190058 
100608 
11098 
11010 
112208 
11838 
20008 
20010 
200208 
20030 
20040 
20958 
200698 
20070 
20080 
20030 
201008 
20110 
201208 


20130 
29140 


20158 
20169 


20178 
30808 


390810 
399208 
30038 
39048 
300850 


RER EEE ERRETENE 


print tab(28)"LwhtICJ/n) ”; 

get a$:if a$<>”n” and a$<>”j" then 
8053 

print "[rvs]”a$"Ccbm 7]":if as="j” 
then poke a,193 

next a 

print "Cdown,grn, 7spaces]lbitte eine 
taste druecken!” 

get a$:if a$=-""” then 8070 

return 

rem charaktere validieren 

a=-49152:e-53120:print "Cclr,wht] 

verlegte charaktere:” 

print "=——m—unnunnannnnennee[ldoun, 

cbm 71” 

if e<=a then return 

if peek (e)=-® then e=-e-128:goto 99498 

if peek (a)>® then a-a+128:goto 9049 

a$=-"":for i=-® to 15 

if psek (e+i)<>255 then aS-a$+chr$ ( 

peek (e+i) and 127):next i:print a$ 

for i=® to 127:poke a+ti,psek (e+ti): 

poke e+i,®:next i 

goto 30240 

aa"a:rem naechsten charakter holen 
if 53128 then a=49152 

if psek (a)<>® and peek (a)<>178 then 

return 

a=-a+l28:if a>53128 then a=49152 

if a<t>aa goto 10219 

if 1%=-1 then 1192008 

print "Cclr,2down,whtlkein charakter 
vorhanden, bitte eine” 

print "Cdownlandere character-disc 
einlegen und das” 

print "[down]programm neu starten!”: 

end 

print "[clr] alle charaktere 
geloescht, bitte eine” 

print "[Cdown]" tab(10®)"taste 
druecken!” 

get a$:if a$=""” then 11020 

goto 70088 

rem charakter wieder in den speicher u 

ebertragen 

for i=1 to len (na$):poke a-1+i,128+ 

asc ( mid$ (na$,i,1)):next i 

if i<17 then poke a-1+i1,255:i=i+1:goto 

20020 

for i=1 to 12:poke a+35+i,asc ( midS 
(gs,i,1))-48:next i 

for i=1 to 12:poke a+19+i,asc ( mid$ 
(ep$,i,1))-48:next i 

poke a+32,3:poke a+33,231:poke a+34, 
int (le/256):poke a+35,le-int (1le/256) 
*256 

poke a+56,kl:poke a+57,ra:poke a+6ß2,sa 
For i=1 to “4:poke a+i+63,sl(i):next i 
poke a+4B,int Chm/256):poke a+49,hm- 
256*int Chm/256) 

poke a+58,int Chp/256):poke a+51,hp- 
856*int Chp/256) 

poke a+52,int (sm/256):poke a+53,sm- 
256*int (sm/256) 

poke a+54,int (sp/256):poke a+55,sp- 
256*int (sp/256) 

for i=® to 7:poke a+2*i+B0,0:poke a+2® 
i+8l,geli):next i 

poke a+16,at(1)*B+int (at(2)/4) 

poke a+17,(C peek (a+17) and 32)+64* 
(at(2) and 3)+at(3) 

poke a+1B,at(4)*B+int (Cat(5)/4) 

poke a+19,( peek (a+19) and 63)+64* 
(at(5) and 3) 

return 

print "Chome, 18down,wht]” tab(12)” 
Crvs,cbm a,i6shift *,cbm s)” 

print tab(12)"C[rvs,shift -]sind sie 
sicher?[shift -]” 

print tab(12)”"[Crvs,shift -]I[3JJa oder 
Cnlein[shift -]” 

print tab(12)"C[rvs,cbm z,16shift *, 

cbm x)” 

get an$:if an$<>"j" and an$<>”n" then 
39940 

return 
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Spiele 


Im ersten Level muß man sich un- 


e ig & = bedingt den Schlüssel aus Kiste 
Nr. I holen, da es sonst keine wei- 
teren Schlüssel in dieser Spielrun- 

de gibt. Der Schlüssel wird für die 


Tür im zweiten Level benötigt, 
ohne ihn kann dort nicht weiterge- 
spielt werden. Jetzt heißt es mög- 


lichst schnell in den Besitz eines 


Wer bei „Druids“ über den ersten Level hinaus- eg zu Dr vi = es 
. . . stec einer! er olem Kann als 
kommen will, muß den richtigen Weg beherr- Schutschill eins 


schen. Rene Hartung aus Berlin entwarf ausführli- Seine Steuerung übernimmt am 
che Pläne für die ersten drei Spielrunden. 


besten ein zweiter Spieler. In den 
höheren Level sollte man mög- 
lichst mehrere „Chaos"-Zauber 
zur Verfügung haben — sie helfen 


Water 
Water 
Fire 

Fire 

Fire 

Fire 
Electricity 
Electricity 
Berühren 
und Chaos 


Geister 
Skelette 
Käfer 
Druiden 
Schlangen 


Be] Kasten (Hindernis) & Baum (Hindernis) 


3] E-Feld (Energieverlust) & Wasser (Energieverlust) 


B Tür R Nächster Level 
& Lebens-Pentagramm en, Level zurück 


In den Plänen verwendete Symbole 


Gespenster 
Teufel 

Vögel 
Dämonenfürsten = 


FU WERE 


Der erste Level ist leicht zu bewältigen 
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WWW HONBSSMELUTERWERLD ESM 


Level 3 
Wer nicht mit Strategie vorgeht, hat im dritten Labyrinth keine Chance. 
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De ae 1 ERUVOREOBE TE 


3 


Kistennummer aeg 7 onen 
Water ses rer TB 2er 18 
Fire - 30 -— 0 2 8 — 3 — 13 20 
ge \ I. rau 1 nel 23 36 
Invisibility ee ner 
Golem MIO? 26, 272 oe : a 
Chaos A u 
Water 3710:589 7 1 = =+n8: 38 72120° 5. 10° 810 
Bi een, 
ER Se Fer. ei Il 
ee SEE 385 ee 
Chaos NEN De EISEN EEE RE NE 
Water 12.18 227:.39 49.19, 19. :31..29.,81.. 82.14 
Eleckricity Bassukansaea a 
Kusibilty ee a 
Golem Er a a a 
Chaos N a ee 


beim Kampf mit den vier Dämo- 
nenfürsten. Zaubersprüche müs- 
sen überlegt angewandt werden, 
die wenigen im Spiel erhältlichen 
sind schnell vergeudet. Beim An- 
griff der verschiedenen Monster 
wirken die im Spiel auftretenden 
Waffen unterschiedlich gut. Ta- 
belle 1 hilft bei der richtigen Aus- 
wahl. Anhand der Karten und die- 
ser Tips sollten die ersten drei 
Spielebenen jetzt problemlos zu 
bewältigen sein. 


Auflistung der Inhalte der 
>» Kisten von Druids 


Panzerknacker 


erwünscht 


Der Tresor wird 


der „Fischzug“ 
gelohnt? 


Machen Sie mal aus 


55 000 Pfund eine Million. Neustart 
Und das in einer Woche. nern | F 
Wo? In der actiongela- 


eh mes 7: TEREr Is BöRgee — 
denen Gangsterklamotte Ki anazFabe LITE 


a3 
„They stole a million“. Geschichte: 


lEin guter Fahrer u 
irgendwie ein "'Erfinder’, 


Solange alles ein Spiel bleibt, ist 


gegen einen Millionen-Coup | Träst sern falsche 


nichts einzuwenden. Die Idee ist 
einfach: Der BOSS hat 55 000 
Pfund Startkapital organisiert. Mit 
der Planung und Ausführung meh- 
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WU KNEEENITEREREIEN 


geöffnet. Hat sich 


rerer Raubzüge will er dieses 
Geld rasch zu einer Million auf- 
stocken. Zuerst muß ein Zielobjekt 
gefunden werden. Ob Kunstgale- 
rie, Schmuckhandlung oder Bank, 
auf dem schwarzen Markt werden 
die Pläne jedes Gebäudes ange- 
boten, das man überfallen könnte. 
Für den Anfang sollte man es je- 
doch bei dem kleinen Münzge- 
schäft belassen, dessen Pläne für 
5000 Pfund günstig zu erstehen 
sind. Das Team der Einbrecher 
wird in einer Art Warenhauskata- 
log feilgeboten. In übersichtlichen 
Windows tummelt sich hier, was 


Ra 


Die richtige Aus- 
wahl der Ganoven 
entscheidet über 
das Gelingen des 
Coups. 


RUIN)-o-thek EEE 


Weil immer noch Anfragen von RUN Lesern bei uns eingehen, die wissen wollen, ob und welche 
Disketten zu früheren RUN Heften zu bekommen sind, geben wir die Bestell Nr. und den Preis 
für alle, die es noch nicht wissen, bekannt. Alles klar? 


Liste der lieferbaren RUN-o-thek Disketten zu den Heften: 


Monat Bestell Nr.: Preis DM 
Januar 1985 501 24.80 
Februar 1985 502 24.80 
März 1985 503 24.80 
April 1985 504 24.80 
Mai 1985 505 24.80 
Juni 1985 506 24.80 
Juli 1985 507 24.80 
August 1985 508 24.80 
September 1985 509 24.80 
Oktober 1985 510 24.80 
November 1985 511 24.80 
ea.» > 22 10 BOOS U Te a 7 Eee Be 
Januar 1986 601 24.80 
Februar 1986 602 24.80 
März 1986 603 24.80 
April 1986 604 24.80 
Mai 1986 605 24.80 
Juni 1986 606 24.80 
Juli 1986 607 24.80 
August 1986 608 24.80 
September 1986 609 24.80 
Oktober 1986 670 24.80 
November 1986 611 24.80 
Dezember 1986 612 24.80 


RUN Sonderheft I 1985 32.90 (zwei Disketten) Best.-Nr. 513 

RUN Sonderheft Il (Siegerprogramme) 32.90 (zwei Disketten) Best.-Nr. 613 

RUN Sonderheft Ill Apple’s 42.80 (zwei Disketten) Best.-Nr. A1 

RUN Sonderheft 1/87 (Tips + Tricks Programme 37.80 [zwei Disketten]) Best.-Nr. 713 

Im RUN-o-thek BASAR gibt es wieder einen ganzen Jahrgang RUN-o-thek Disketten in der 
Kassette verpackt. 


Disketten 1 bis 12 1985 Best.Nr.515 Preis 234.90 DM 
Disketten 1 bis 12 1986 Best.Nr,616 Preis 234.90 DM 


In allen Preisen sind Verpackung und Porto enthalten! Bei Nachnahmebestellungen zuzüglich Nachnahmegebühr. 


BESTELLSCHEIN 


Bestellschein bitte ausfüllen und ggf. mit unterschriebenem Verrechnungs- NamelVorname 
scheck in einem ausreichend frankierten Umschlag schicken an: 


CW-Publikationen GmbH 
Vertrieb 

Postfach 40 04 29 PLZIOrt 
D-8000 München 40 


Ja, ich bestelle folgende Disketten direkt beim Verlag 


Disketten zu RUN Sonderheft Nr. 1/Bestellnr.: 513 
DM 29.80 (+ 3.— DM Porto). Endpreis DM 32.80. 
] Disketten zu RUN Sonderheft Nr. 2/Bestellnr.: 613 


DO 
m) 
e Diekeien zu RUN Sonderheft Nr. ABesteilne: Ai ER ei ba eis een a 
= M 39.80 (+ 
oO 
GB 


Datum Unterschrift 


Zahlungsweise (Zutreffendes bitte ankreuzen) 


3.— DM Porto). Endpreis DM 42.80, 
Dickatten zu RUN Sonderheft Nr. 1/87 Bestellnr.: 713 
DM 34.80 (+ 3.— DM Porto). Endpreis DM 37.80. r 
Jahrgangssatz 1985: 12 Disketten in Schutzkassette DJ Versand per Nachnahme an obige Adresse. 
DM 231.30 (+ 3.— DM Porto). Endpreis DM 234.90. 
Jahrgangssatz 1986: 12 Disketten in Schutzkassette 
DM 231.30 (+ 3.— DM Porto). Endpreis DM 234.90 Alle angegebenen Preise sind Inlandspreise. 
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Spiele 


des Gauners Herz begehrt: Safe- 
knacker, Sprengstoffspezialisten, 
Entschärfer von Alarmanlagen, 
Fahrer für das Fluchtauto und vie- 
les mehr. 

Jeder der schweren Jungs wird 
mit einem kurzen Lebenslauf vor- 
gestellt, der vom Verfasser einen 
guten Schuß Witz und Ironie abbe- 
kommen hat. Zu guter Letzt wird 
auch noch ein Hehler gesucht — 
denn der BOSS will ja auf der Beu- 
te nicht sitzenbleiben. Nach der 
Wahl des Teams beginnt der zwei- 
te Teil — die minutiöse Planung 
des Überfalls. Da die Polizei meist 
recht schnell am Ort des Überfalls 
ist, bleibt nicht viel Zeit. Der Bruch 
muß präzise und rasch ablaufen. 
Zu einer genauen Planung sind 


Papier und Bleistift unbedingt not- 
wendig. In der heißen Phase kann 
der BOSS seiner Gang zu Hilfe 
kommen. Trotzdem wird es eine 
Weile dauern, bis man den Dreh 
raus hat, daß nach dem Teilen der 
Beute mehr übrigbleibt als inve- 
stiert wurde. Am Ende eines so er- 
eignisreichen Tages bleibt nur 
eine Frage offen — und wen über- 
fallen wir morgen? 

„Ihey stole a million“ ist endlich 
wieder eines jener Spiele, bei de- 
nen man sich nicht die Haut am 
Feuerknopf des Joysticks abrub- 
belt, um wenigstens etwas zu emp- 
finden. Gut ist auch die Grafik. Sie 
braucht den Vergleich mit ande- 
ren Action-Strategiespielen nicht 
zu scheuen. Älle Befehle des 


Spiels sind mit Symbolen unter- 
leg. Mein Gesamturteil fällt 
durchweg positiv aus. 
(Thomas Kastura) 


Programmname: They stole a million 
A & 


Rechner: C64 0 l 2 3 “ 5 


Idee/Story: 

Grafik: 

Sound: 

Schwierigkeitsgrad: 

Spielspaß: 

Spielerzahl: 1 

Spieltyp: Strategiespiel mit Actioneinlagen 
Besonderheiten: neue Spielidee 
Hersteller: Ariolasoft/Tigress Ltd. 
Preis: DM 39,95 Disk/DM 29,95 Kass. 
Vertrieb: Ariolasoft 


Nicht alles ist Gold, was glänzt, 
auch bei US-Gold nicht. „Break- 
thru“ — das neue Meisterwerk — 
überrascht mit einem weniger in- 
teressanten Spielkonzept: erbit- 
terter Krieg steht auf dem Pro- 
gramm. Der letzte Kampfflieger ist 
vom Feind geklaut worden, um 
damit einen dritten Weltkrieg zu 
zelebrieren. Der Rest der Story 
ergibt sich von alleine: Der auser- 
wählte Retter bekommt seine Be- 
fehle von oberster Stelle: „Durch- 
breche die feindlichen Linien! 
Kämpfe Dich bis zum Stützpunkt 
vor! Stelle das Flugzeug PK 430 
sicher. Du hast ein von einem Auf- 
klärer geschossenes Foto des 
gegnerischen Gebietes, einen 


Wunderwagen mit vier Rädern 
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und dein Leben." Spielanleitung 
gelesen, ran an den Joystick und 
hinein in das zweifelhafte Vergnü- 
gen. Gemütlich tuckert das Wun- 
derauto durch feindliches Gebiet. 
Minen oder gegnerischen Panzer- 
wagen weicht man entweder aus 
oder schießt sie gezielt ab. 


Nach einiger Zeit taucht mitten in 
der Einöde eine Felsenbarriere 
auf. Kein Problem: wie gewohnt 
den Joystick nach vorne und 
gleichzeitig den Feuerknopf drük- 
ken. Doch der Wagen reagiert 
nicht — er zerschellt an den Fel- 
sen. 

Einen besseren Einfall als die 
SPACE-Taste für den Sprung des 
Wagens hatte der Programmierer 
wohl nicht. Es geht weiter, fah- 
rend, springend und hektisch mit 


Die Grafik ent- 


im Spiel: Primitiv 
und monoton 


spricht der Action 


der Hand mal am Joystick, mal an 
der Tastatur. Endlich, nach Minu- 
ten, erreicht man die zweite der 
fünf Etappen — wenn einem vor- 
her nicht die Lust vergangen ist. 
Der Hintergrund hat sich verän- 
dert, Langeweile bleibt. Bei den 
Bildern ist mit viel Haß zum Detail 
gearbeitet worden. So erinnern 
die Schüsse, die das Wunderauto 
abgibt, eher an blaue Knödel als 
an tödliche Projektile. Das ändert 
nichts an der Tatsache, daß US 
Gold eine Softwarefirma ist, die 
normalerweise für Spitzenproduk- 
te bürgt. Es ist zu hoffen, daß bei 
kommenden US-Gold-Program- 
men mehr Liebe zum Detail ange- 
strebt wird. Insgesamt kann man 
„Breakthru" nur als Ausrutscher 
betrachten. 

(A. Niedermayer) 


Idee/Story: 

Grafik: 

Sound: 
Schwierigkeitsgrad: 
Spielspaß: 

Spieltyp: 
Spielerzahl: 1 


Moon Patrol Verschnitt 


Besonderheiten: extrem langweilig 
Hersteller: US-Gold 

Preis (Kass./Disk.): 34,95/49,95 
Händler: Rushware 


Killer auf Luxus- 
Reisen 


Man schreibt das Jahr 1937. Auf 
den Weltmeeren fahren prunkvol- 
le Passagierdampfer. Die Reede- 
reien der einzelnen Länder wett- 
eifern in Geschwindigkeit, Gigan- 
tismus und Luxus. In diesem Am- 
biente spielt „Murder on the At- 
lantic. Die französische „Bour- 
gogne" ist nicht nur das schnell- 
ste, sondern gleichzeitig auch 
noch das leiseste und damit kom- 
fortabelste Schiff seiner Zeit. Die 
aufs feinste eingerichtete Innen- 
ausstattung ist ebenso exklusiv 
wie die Technik: Büchereien, Wä- 
schereien und Läden machen das 
Schiff zu einer luxuriösen schwim- 
menden Stadt 

Die Passagiere gehören zu den 
Reichsten Europas und Amerikas 
und bewegen sich in der creme 
de la creme der nördlichen Hemi- 
sphäre. Die illustre Gesellschaft 
hat allerdings einen großen Feh- 


ler: Sie ist falsch, verlogen und de- 
kadent. Der Spieler entdeckt als 
Detektiv des Schiffes eine Leiche. 
Ermittlungen werden sofort aufge- 
nommen, auf Grund von Indizien 
und Zeugenaussagen wird der 
Kreis der verdächtigen Personen 
allmählich kleiner. Eine schreck- 
liche Affäre kommt ans Tages- 
licht... 

Die Verpackung von „Murder on 
the Atlantic" ähnelt einem Bord- 
buch. Öffnet man es, so kommen 
neben Diskette und Spielanleitung 
zahlreiche Gegenstände zum Vor- 
schein: eine Patronenhülse, ein 
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Faden, ein zerrissenes Foto und 
verschiedene Briefe. Dieses In- 
ventar macht, neben der hervor- 
ragend recherchierten Hinter- 
grundstory, den Hauptreiz des 
Spiels aus. Es regt die Fantasie 
des Spielers enorm an und recht- 
fertigt den überdurchschnittlichen 


BA ID mE 


FILFRIIE 


Die „Bourgogne“ 


— Tummelplatz 
für Millionäre 
und Mörder 


Verkaufspreis. 

Enttäuschung kommt beim Laden 
des Programms auf: Nach einer 
netten Titelgrafik erscheint eine 
äußerst primitive Rißzeichnung der 
„Bourgogne“ auf dem Monitor. 
Der Detektiv bewegt sich als klei- 
nes Viereck durch die einzelnen 
Schiffskabinen. Sämtliche Funktio- 
nen wie bewegen, untersuchen, 
befragen etc. werden über die Ta- 
statur aufgerufen. Untersucht man 
einen Raum, so wird am Monitor 
eine kleine Grafik eingeblendet, 
die zeigt, was sich im Raum befin- 
det. Die Grafik ist äußerst spärlich 


Der Spieldiskette 
sind zahlreiche 


Gimmicks beige- 
legt. 


und wiederholt sich oft, neue Ele- 
mente tauchen selten auf, Auf 
Wunsch werden _digitalisierte 
Paßbilder der Schiffspassagiere 
gezeigt. Trifft man im Schiff auf 
Personen, so können diese über 
Alibi, bzw. Meinung befragt wer- 
den. Die Zeugenaussagen er- 
scheinen in einem winzigen Fen- 
ster mit vier Zeilen und scrollen so 
schnell, daß es schwerfällt, beim 
Lesen nicht den Faden zu verlie- 
ren — Kopfschmerzen durch er- 
müdete Augen sind garantiert. 
Die zahlreichen Aussagen, die 
man im Laufe des Spiels erhält, 
sollten unbedingt auf Papier mit- 
protokolliert werden — wie essich 
für einen Meisterdetektiv gehört. 

Die deutschen Texte im Spiel sind 
wenig einfallsreich. Bei den Zeu- 
genaussagen ist dies gerade noch 
erträglich, bei den Raumbeschrei- 
bungen hingegen sinkt das Ni- 
'veau bis zur Unerträglichkeit 
(Schiffspassagiere werden bei- 
spielsweise als „Insassen“ be- 
zeichnet). Laut Spielanleitung wur- 
de bei der Programmierung des 
Spiels ein Kompositeur herange- 
zogen — leider ist im gesamten 
Spielverlauf kein Sound zu hören! 

Die Haupteigenschaft von „Mur- 
der on the Atlantic" liegt in erster 
Linie in der langen Spieldauer. 
Egal mit welcher Taktik man ans 
Werk geht — die Lösung des 
Spiels erfordert viele Stunden Ge- 
duld. Nicht weniger als 13 Decks 
mit je 250 Räumen und insgesamt 
40 Verdächtigen müssen durch- 
sucht werden. Diese Langwierig- $ 
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keit kann als Vor- oder Nachteil 
gesehen werden. Je nach Gedulds- 
aufkommen ist ein gutes Preis/ 
Leistungs-Verhältnis geschaffen 
— vorausgesetzt, man bezieht in 
die Rechnung die Einmaligkeit 
der Spannung mit ein. 

„Murder on the Atlantic" ist ei- 
gentlich kein Computerspiel. An- 
statt den Spieler mühsam durch 
Hunderte Räume wandern zu las- 
sen, in denen sich nichts Besonde- 
res ereignet, hätte man genauso- 
gut sämtliche Zeugenaussagen 
dem Spiel als Text beilegen kön- 
nen. Das in Basic geschriebene 


Programm steht in keinem Ver- 
gleich zur hervorragend aufge- 
machten Spielverpackung. Es 
scheint, als hätten die Macher des 
Spiels dreiviertel ihrer Zeit für das 
Recherchieren der Hintergrund- 
story verbraten, um dann schnell 
an einem Wochenende das Pro- 
gramm zu erstellen. 

Schade, hätte man mehr Zeit für 
die Programmgestaltung aufge- 
wand, so wäre „Murder on the At- 
lantic" ein hervorragendes Spiel, 
mit einer pfiffigen Story, die jeden 
Computerdetektiv begeistern 
würde. 


Programmname: 
Murder on the Atlantic 

0 l 
Idee/Story: 


Schwierigkeitsgrad: 
Spielspaß: 


Spieltyp: Mischung aus Computer- und Tischspiel 


Spielerzahl: beliebig 

Besonderheiten: beigelegte Gimmicks 
Hersteller: Copra-Soft 

Preis: Disk 59,95/Kassette 49,95 
Händler: Ariolasoft 


Wer will an die 
Spitze? 


Offensichtlich werden Vögel 
(nicht nur schräge) verehrt — drü- 
ben, im Pionierland der praktizier- 
ten Demokratie. Drum wohl ent- 
hält das Wappen des Präsidenten 
neben einem schönen Spruch (,E 
pluribus unum“) auch einen der 
selten gewordenen Seeadler. Das 
Siegel des Präsidenten, immer 
präsent, symbolisiert am Ende sei- 
ner Amtszeit freilich eher einen 
anderen Vogel, den wir schon von 
Donald (nein, nicht die Mc-Ver- 
sion!) her kennen: Eine lame 
duck! Rhetorische Shows darf er 
zwar noch abziehen, ansonsten 
aber geht, vor allem politisch, nur 
noch wenig! Seine (zweite) Wie- 
derkandidatur ist nämlich per 
Verfassung ausgeschlossen. Im 
konkreten Fall käme da noch das 
Alter dazu, vom Image wg. „Iran- 
gate" gar nicht zu reden. (Über- 
dies verfügt die Opposition schon 
in den beiden Häusern des Kon- 
gresses über die Mehrheit. Armes 
Amerika, wo solches möglich ist, 
wo der Oberguru im „Reich des 
Guten“ institutionell gerupft, flü- 
gellahm gemacht werden kann 
und nur noch übergangsweise 

„schnattern" darf.) Derweil jedoch 
prügeln sich schon die Nach- 
folge-, die presidential candi da- 
tes, stecken Terrain ab und taktie- 
ren fleißig. Armer George Bush — 
wenn man da mal draufklopft ...! 
(Außerdem: Auf den zweiten 
Mann fällt selten Glanz ab.) Cuo- 
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mo hat, wegen möglicher mafiöser 
Unterstellungen, schon vorher 
das Handtuch geworfen. Und 
Gary Hart („.. . aber herzlich“) hat 
folglich die Nase vorn — zur Zeit. 
Nur noch Politiker diesen Typs, so 
scheint's, können drüben gewin- 
nen: Jung und unverbraucht er- 
scheinend, smart und aalglatt, so 
konturenlos last not least, daß die 
Karikaturisten schon Probleme 
kriegen. Nur mit einer Conditio 
noch geht's: Telegen müssen sie 
schon sein, im Fernsehen müssen 
sie immer eine gute Figur 
machen! Denn über das Medium 
kommt die Message mittlerweile 
exklusiv rüber' Der Rest des 
Wahlkampfs ist dann kaum mehr 
als eine Frage des Investments, 


Noch ohne Konturen: Der künftige 
Präsident... 


des kühl-kalkulierten Product- 
Placements, des Managements 
der „Mannschaft“ halt. So, auf der 
Ratio-Schiene, laufen die partei-in- 
ternen Vorentscheidungen zuerst 
ab, bis sie, die Primaries, erfolg- 
reich überstanden sind. Dann 
folgt der ebenso kurze wie brutale 
Showdown: Der End-Kampf des 
demokratischen und des republi- 
kanischen Kandidaten ums höch- 
ste Amt, um den Stuhl im Oval Of- 
fice. Wie man's macht, wie man 
pokert und powert, um Chef im 
White House zu werden, das de- 
monstriert PRESIDENT ELECT. 
Legt, verehrte Leser, zuerst alle 
Naivitäten im Nähkästchen ab! 
Etwa die, es käme da auf Verant- 
wortungsbewußtsein an, auf mora- 
lische Qualität, auf intellektuelle 
Überlegenheit. © no! Politics are 
Part of Showbiz (and there’s be- 
kanntlich no other business. . .). 
Lincoln — heute im TV: Zum 
Lachen. Carter, der Peanuts-pro- 
duzierende Prediger aus Georgia: 
Seinen Erfolg verdankt er Water- 
gate, Ford’s Failures — und nicht 
dem Fernsehen! Denn er war 
wohl die Ausnahme von der Regel 
(und der andere historisch noch 
nicht „Arin")! 

Vorläufiges Fazit: Alles ganz sim- 
pel für den, der 'nen schwachen 
Gegner hat (unwahrscheinlich), 
oder der (besser) als Zyniker alle 
übertrifft! Generell gilt: Fähigkei- 
ten der Qualität zu entwickeln, per 
TV (optisch und rhetorisch) Punkte 
zu sammeln, ökonomisch schließ- 
lich den Grenznutzen jeder Wahl- 


kampfinvestition zu optimieren — 
| auf den Nenner wohl müßte man 
die Marschroute bringen, die den 
einen dann zum Zentrum des Wa- 
shingtoner Glamours machen und 
dem anderen — am Terminal we- 
nigstens — die winning Points ein- 
bringen, die zum theoretischen 
Triumph reichen! 
Wenn auch auf Umwegen, so sind 
wir doch schon mittendrin im 
spannenden Spiel um die Macht. 
Das Spiel simuliert eine presiden- 
tial campaign vom Labour Day 
bis, neun Wochen später, zur 
Wahlnacht. Konkurrieren können 
bis zu drei Kandidaten, eine nicht 
allzu realistische Annahme, die — 
im Spiel — jedoch für zusätzliche 
Verzwicktheit sorgt. Im Test blieb 
diese Möglichkeit außen vor. Ein 
Duell ist angesagt! Und klar, daß 
der andere Kandidat durch den 
Computer „personifiziert" wird. 
Die Hauptentscheidung ist wö- 
chentlich neu zu treffen: Wie wer- 
den die verbliebenen funds ver- 
teilt? (Als Reflex auf die aktuellen 
Umfragen) Als einzige Ausgabe- 
möglichkeit fiel den Spiel-Desi- 
gnern ein, dies per Print- oder TV- 
Spot zu tun. Was letztlich heißt: 
Der richtige Einsatz der Werbe- 
Millionen entscheidet die Wahl! 
Das, aller „Kostümierungen“ ent- 
kleidet, ist denn auch der „nack- 
te" Kern des Polit-Games: Geld re- 
giert die Welt! Oder — vorsichti- 
ger, im Jargon der Werbebran- 
che: Wer nicht wirbt, stirbt! Noch 
präziser (und positiv formuliert): 
Wer richtig wirbt, wird der mäch- 
tigste Mann! 
Ob der Kandidat nun seine funds 
richtig plaziert, ob er durch seine 
Investitionsentscheidungen der 


Macht näherkommt, ermittelt er 
| durch ein rein ökonomisches Kal- 
kül: Wo bringt mir der pekuniäre 
Input den größten Output in Form 
potentiellen 


(Am 


Brot 


| von Votes, 


für die Welt 


VEREIN ER WER FEN 


Schluß sind das die sogenannten 
Wahlmänner, die den Präsidenten 
wählen.) Ein reines Minimax-Pro- 
blem also! Es erfordert freilich 
einiges an Kenntnissen der US-In- 
nenpolitik, das heißt der dortigen 
„Wählerlandschaft‘ — wohl das 
größte Handicap dieses Spieles 
(auf dem deutschen Markt!). Was 
wissen wir schon über die Wähler 
in Wisconsin, was über die im 
Staate Washington? Die einen 
„reagieren“ auf campaigning 
efforts, die anderen sind selbst 
durch massivsten Einsatz finanziel- 
ler Mittel kaum zu beeindrucken. 
Schließlich kommt's auch auf das 
timing an, und ganz entscheidend 
auf die stark variierende Zahl der 
Wahlmänner pro Staat! (Was be- 
deuten könnte: Jeder Dollar in In- 
diana ist „für die Katz“, jede Inve- 
stition in Idaho bringt dagegen rei- 
che „Rendite".) 

An diesem Punkt ist eine Relativie- 
rung angebracht: Nicht nur money 
moves the millions! (Das gilt sogar 
für die Werbung: Ein schlechtes 
„Produkt“ läßt sich nun mal nicht 
optimal verkaufen!) Auch in De- 
batten muß der Kandidat seine 
Überlegenheit beweisen. Dem 
freilich könnte er sich entziehen: 
to debate or not to debate — das 
ist, frei nach Hamlet, die Frage für 
ihn! 45 davon sind möglich, jede 
im Verlauf der Kampagne nur ein- 
mal, und sie haben unterschiedli- 
ches Gewicht! Eigentlich das 
charmanteste Chapter von PRESI- 
DENT ELECT. Da wird ihm (end- 
lich) „auf den Zahn gefühlt", da 
muß er politische Inhalte offenba- 
ren, muß er im Zweifelsfall auch 
Wähler verschrecken. Ein riskan- 
tes Geschäft folglich — oder eins 
für Routiniers. Denn mögen die 
Formeln auch noch so gestanzt 
und gestylt sein: Der Mann auf der 
Straße nimmt’s nun mal für bare 
Münze. So konvergiert dann das 


Postgiro Köln 500 500-500 


Politblabla auch in seiner Funktion 
mit der des Geldes: Normiert und 
mitten in der Metamorphose zum 
reinen Austauschmedium! 
Vernachlässigen lassen sich hier 
weitere Spielaspekte wie etwa 
„Auslandsreisen“. Deren taktiler 
Zweck liegt auf der Hand: Gute 
Presse daheim oder, auf eine 
Filmformel gebracht: A statesman 
is born! (Gorbatschows Hände- 
druck hilft!) Nicht erwähnt werden 
Aspekte wie „Zufall“ und „Witz“, 
obwohl sie dem Spiel in Teilberei- 
chen durchaus zusätzliches For- 
mat verleihen. 

Fazit? Ein Spiel, in dem ökonomi- 
sche Ratio und pure Taktik zum 
Sieg verhelfen! Management und 
Chuzpe also, nicht mehr, sind ge- 
fragt — eine fast frivole Polit-Philo- 
sophie! Wenn derlei „Fähigkei- 
ten“ dominieren, dann liegt das in 
einer Demokratie letztlich am 
Wähler, dem berühmten Souve- 
rän. Will sagen: Er, und nur er, 
könnte es ändern. Wenn Compu- 
terspiele so sind, liegt's freilich an 
einem ganz anderen Aspekt: 
Compassion etwa, eine der wün- 
schenswertesten Politiker-Eigen- 
schaften, läßt sich nicht program- 
mieren! 

(Reiner Uhl) EREEEEEEEE EEE 
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Sound/Sprache: 
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Spieleranzahl: 


Spieltyp: Politisches Strategiespiel 


Besonderheiten: Nichts für Naivlinge 
Hersteller: Strategic Simulations Inc. 
Preis: Disk 60 Dollar 

Händler: k. A. 
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Spiele 


Brutalität und 
Geschicklichkeit 


Spieler scheinen unersättlich. Mit 
Shao Lin's Road wurde ein weite- 
res Karatespiel auf den Markt ge- 
bracht. Befürchtungen von Insi- 
dern werden eindrucksvoll bestä- 
tigt: Entgegen allen Naturgeset- 
zen handelt es sich hier um eine 
Schwemme, deren Niveau bei 
wachsendem Volumen sinkt. Die 
Nachfolger der ersten Karate-Si- 
mulationen zeichnen sich durch 
kaum zu überbietende Brutalität 
(siehe Thai-Boxing Besprechung 
in Ausgabe 12/86) oder durch im- 
mer primitivere Spielideen aus. 
Mit „Shao Lin's Road“ ist es gelun- 
gen, beide Kategorien in hervor- 
ragender Weise zusammenzufas- 
sen. Daran ändert auch nichts die 
Tatsache, daß sich der Spieler 
außer mit ordinärem Schlagen 
und Treten aus einem geheimnis- 
vollen Tempel befreien kann, son- 
dern zusätzlich über magische 
Zauberkräfte verfügt. Bei dieser 
unglücklichen Konvertierung vom 
Spielhallen-Hit zum Computer- 
spiel scheint selbst der für ein- 
fachere Gemüter ursprünglich 
vorhandene Reiz verlorengegan- 
gen zu sein. Die Grafik ist schlicht. 
Die ersten Zimmer unterscheiden 


sich kaum, sind einfach gezeich- 
net und mit asiatisch anmutenden 
Versatzstücken versehen. Äner- 
kennenswert ist einzig und allein, 
daß jeder Level aus einem zwei- 
geteilten Bildschirm besteht. Man 
kann sich folglich nach rechts be- 
ziehungsweise nach links bewe- 
gen, wobei der Bildschirm auf die 
jeweilige räumliche Fortsetzung 
umschaltet. Der Sound besteht aus 
einem fernöstlich anmutenden 
Computer-Sing-Sang und verführt 
nach kurzer Zeit dazu, den Laut- 
stärkenregler des Monitors oder 
Fernsehgeräts auf Null zu schal- 
ten. Pluspunkte sammelt „Shao 


Durch simpel 
gestaltete 


Bildschirme und 
Sprites verliert 
jeglichen Reiz. 


lieblos entworfene 


„Shao Lin's Road" 


Schon das Titelbild 
signalisiert den 


erıngen 


Anspruch dieser 
Karate-Simulation. 


Lin's Road“ im Schwierigkeits- 
grad. Es ist ein Spiel für Leute, die 
immer neugierig auf den nächst- 
höheren Level sind. Wenngleich 
Grafik und Handlung enttäuschen, 
zwingt die wachsende Brutalität 
der Gegner, mehr und mehr Zeit 
am Computer zu verbringen. Da- 
bei ist Geschicklichkeit und Raffi- 
nesse, aber auch ein ebenso ra- 
biater Umgang mit Steuerknüppel 
und Steuerknopf vonnöten. Spaß 
macht das Ganze also dann, wenn 
man über ein gehöriges Maß an 
Aggressivität und über einen un- 
erschöpflichen Vorrat an Joysticks 
verfügt. 


Programmname: Shao Lin’s Road 

( l 2 3 5 5 
Idee/Story: 
Grafik: 
Sound: 
Schwierigkeitsgrad: 
Spielspaß: 
Spiel-Typ: Karate/Action 


ohne Bewertung 


Spielerzahl: 1 
Besonderheiten: Spielhallen-Hit 
Hersteller: Konami 


Preis: Disk 49,95 /Kassette 39,95 


Brot 


für die Welt 
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Unser Auftrag: 

Die Schöpfung Gottes zu 
bebauen und zu bewahren. 
Längst sind wir Menschen 
selbst die Bedrohung. 
EIREERIITTEIEWETEL TEEN 


Spendenkonto: 500 500 500 
bei Sparkassen, Banken, Volks- 
und Raiffeisenbanken sowie 
beim Postgiroamt Köln. 
BETH E, 


U.5.G0OLD 
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TAG-TEAM WRESTLING 


CBM64/CBM128 
CRYSTAL CASTLES 


CBM64/CBM128/Schneider/ 
Spectrum 
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CBM64/CBM128 = 
DECEPTO 


CBM64/CBM128 
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gutsortierten Computershops und Im guten Versandhandel 


Vorselnaul 


Amiga 500, 1000, 2000 


Amiga schickt sich an, bei den Computern Platz eins 
zu erobern. Neuheiten bei Soft- und Hardware lassen 
nicht auf sich warten. Wie man mit Genlock eigene 
Filme herstellen kann und was eine „Billigsoftware- 
Reihe" bietet, erfahren Sie in der nächsten Ausgabe. 


Partyfun mit €64 


Warum eine teure programmierbare Lichtorgel kau- 
fen, wenn man einen C64 hat? Eine preiswerte 
Schaltung, die am Userport angeschlossen wird, ver- 
wandelt den C64 zur 8-Kanal-Lichtorgel. Lichtabläu- 
fe können programmiert oder per Musikquelle ge- 
steuert werden. Mit der C64-Lightshow wird die 
nächste Party zum Volltreffer! 


Golf-Champion Amiga 


Der kleine Ball auf dem Rasen fliegt wieder. Activi- 
sion stellt mit „Championship Golf“ ein neues Golf- 
spiel vor. Zweigeteilter Bildschirm und andere neue 
Features sollen die Altmeister des Golfplatzes, „Lea- 
derboard" und „Mean 18“ überbieten. Unser Test- 
bericht zeigt, ob „Championship Golf“ seinen Ball als 
erster einlocht. 


AILINGYD 


HI SCORES 


50898 
soonn N Segeln mit dem €64 
50090 £ 

590658 


Gut im Wind liegt das neueste Spiel von Activision. 
Mit „Sailing“ bekommen C64-Spielefreaks eine 
waschechte Segelsimulation. Nach der Auswahl der 
richtigen Bootstypen und geeigneter Materialien be- 
ginnt ein hartes Kopf-an-Kopf-Rennen. Wer leztend- 
lich als Sieger über die Zielboye geht, entscheidet 
die geeignete Taktik und ein gehöriges Maß an Joy- 
stick-Können. 


er TE; ; 
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Spectrum, 
Apple und IBM. 


r schweren Aufgabe. 


RUSHWARE Produkte erhalten 
Sie in den Fachabteilungen von ASt | Kaurhor | Quelle KARSTADT 
wi sowie in allen gutsortierten Computershops und im guten Versandhandel. 


COMPUTER SOFTWARE Vertrieb: RUSHWARE - Mitvertrieb: Micro-Händler - Distribution in Österreich: Karasoft 


WWW. HOMESOMPUTERWORLB. CO 


MODERNES DATENBANK-MANAGEMENT 


DER BESTEN „BERATER” 
SEINER ART 


Mit wenigen Kommandos 
und Tasten läßt sich die 
gesamte Datenbank steuern. 


‚jeweiligen Anforderungen h 
anpassen läßt. Um jedoch 
den Einstieg so leicht wie 


Und trotzdem stehen möglich zu machen, 
Möglichkeiten zur Verfügung, enthält THE CONSULTANT 
die an teure Büroanlagen bereits 10 vorgefertigte 
erinnern. So ist Standarddateien, die immer 
THE CONSULTANT auch ein wieder gebraucht werden. 
offenes Datenbank- Alles was Sie zu tun haben 
Programm, das sich mit ein- istnur noch die Daten- 
fachsten Mitteln an die , 


eingabe. 


MIT DEUTSCHER 
ANLEITUNG 


FÜR C-64 
DM 89,95* 


@ 10 vorgefertigte Standards: 

@ Zugriffszeit der Schlüsselfelder: 1/10 Sekunde. 

@ Sortierzeit: 4 Sekunden per 1000 Datensätze. 

@5 Suchkreterien @Flexibles Reporting 

@ Integrierter Taschenrechner 

@Help Funktion 

@ Maximal 65.588 Datensätze/Maximal 99 Felder/ 


„ ‚ae läge in kmplater ich 


unverbindliche 


Wer wissen will, was wir außer The Consultant noch für 
tolle Spiele haben, dem schicken wir gerne unseren Gesamt- 
katalog zu. 


Name 


"7 VEHEGSEEGSENNEEEEEEEE call 


PLZ Ort 


Br 2 u Von Experten 
An: ariolasoft, Carl-Bertelsmann-Str. 161, 4830 Gütersloh. für Experten. 
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